home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / unix / volume10 / cbw / part04 < prev    next >
Encoding:
Internet Message Format  |  1987-06-16  |  56.0 KB
  1. Path: seismo!uunet!rs
  2. From: rs@uunet.UU.NET (Rich Salz)
  3. Newsgroups: comp.sources.unix
  4. Subject: v10i004:  Crypt Breaker's Workbench, Part04/11
  5. Message-ID: <376@uunet.UU.NET>
  6. Date: 17 Jun 87 22:41:49 GMT
  7. Organization: UUNET Communications Services, Arlington, VA
  8. Lines: 1715
  9. Approved: rs@uunet.uu.net
  10.  
  11. Submitted by: Robert W. Baldwin <BALDWIN@XX.LCS.MIT.EDU>
  12. Mod.sources: Volume 10, Issue 4
  13. Archive-name: cbw/Part04
  14.  
  15.  
  16. #! /bin/sh
  17. # This is a shell archive.  Remove anything before this line, then unpack
  18. # it by saving it into a file and typing "sh file".  To overwrite existing
  19. # files, type "sh file -c".  You can also feed this as standard input via
  20. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  21. # will see the following message at the end:
  22. #        "End of archive 4 (of 11)."
  23. # Contents:  UU.test UU.test1 autotri.c dline.c specs.h test.txt user.c
  24. # Wrapped by rs@uunet on Wed Jun 17 18:17:13 1987
  25. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  26. if test -f UU.test -a "${1}" != "-c" ; then 
  27.   echo shar: Will not over-write existing file \"UU.test\"
  28. else
  29. echo shar: Extracting \"UU.test\" \(8718 characters\)
  30. sed "s/^X//" >UU.test <<'END_OF_UU.test'
  31. Xbegin 644 test.cipher
  32. XMK^D=OM^/7]Q/RL"9_4AY*RCP`/[KZHU"6Z5:W(U05KF^@U%0-+PS8[6OL_^F
  33. XM.4\,B+%AZ"3`@N&T\3#<LMVP!/'#]*C7-6"V5?!3-^4.!I$`^OXT!\L53\O9
  34. XMPL&FC'**K^/D\$#7[28E!:7SHS0&E'GW!$CJ7/A:.?$JE-`5%1,76RXB[6-?
  35. XM`9.9[^J6F)25KZZQ3.-*\LERQ^0TQ=^;YW-%_D/AJT!@9M;;"`(&(?D/?^[D
  36. XMJ#^_5(*(7/RT%%"8L'VJ2"[Y=-S;#I]O=I)_?F7QKG_>8)O;LOYUKT97YZW2
  37. XMZ.>VI0LD"5B&G^[[G.;@/9CQIJ"4!:D,FZVLW_DU/K.4D/'-R1A.)0HYG]#:
  38. XM]4N/?-@RN;R`ZE+DA14):'B&.(%K!A<2`]V<`(5_#TR6T(`P7P(7INO;.,WE
  39. XM%54-WW-1"9[S,-IJ!)B#U;[^'U*7R949&4T7K$*4ED:;L))W[0_YP,[<YV_1
  40. XM([%7?HFNM,G+E-J2*73(Z7[OCD9HHH@$N%GQ"5:J!H:(HL[0V-E[J;$L^HGH
  41. XM4$D'P_S71!+93T<.7_]=#:WC'AXN\1J(JLJ%3,PF+OT2498I;R\PF'<U2=LJ
  42. XM)ADORXU9T'9[>WI#N-X9;"@QD/NN_-`_9TK3]C`E4U244NL_8NSKA63%V<.[
  43. XM$%YL.&H,;@:)&U72T9NF9^0WP\*[1\A%\M;U*,WE\8"OU+W2H#(S%!=Y94O!
  44. XML.CI;^T=%A4W"8[-Y5Q-L@RDW\61)F<E.JWOR&?:A\EU@QJ)HA)7A`\>$`L6
  45. XMF;*Q5F@F3R2<(V)?"E\0!S_/SQG>1/Z;I4)KL0Z):0MSO[V9PQ_4B\=>.1D2
  46. XM%^34TZ.JB-#S`-6)[[KK%/:<0B)!(%8]]HL,E."'%ZJ$Q\F8#])]U7LU[#>9
  47. XMFH(AU,3?_O=N%Y3Z;[N<7.@DMHP,LQ>:AV_0!8*`;))+#\RX%R93"+NQY4Z7
  48. XM6ZNPLZYY[)+42+P%&GJ4F=!0,-:[I[JYJ]?/)W6)(?RPJ=8T7<O2;,B-""#$
  49. XM]<KZ(A8]%)U8<+1Q4O<A0#T*I6:J9/-G9J#:?[TNPC^X=A3;:JUE)/!#:6%K
  50. XM]I+BT;;Y"M]%@KYW'#%E,&/Y._(7]`2/SM:LW1#J5E'_4OTC)$ID/_R3Q1D=
  51. XMWIRL><=_IW6U.:0WVPJGN!R,WW0[]WL5'K>@7.;2;8?/)#GO!B`8+[@R3&H_
  52. XMO+M*\8ZT??3SC:X^Q'X!6LR^U,]!C]#%`_50+"#9'O9>U76+>8D(6>.8$=1S
  53. XM:G%/`Q+7J:TAA_881,9=XIA:8!%S#Y6"=P"YXSH;TX\'^-'0[9$^F;`\)=Q0
  54. XM@;S5J]RFY_QX!D73@&JTD/D9N0LI3#K1!`4'7Z`$)K$D.HT]9&1_O-/ID>$T
  55. XMWW=4F]+CA-B=_&-H2F#6@-1\`'S46%@J(TT78M:#>5Y3Z0_GU$G\&XT]5>$[
  56. XM95`3RLGX>Q<)12?4[+KJQ9CTW^A3HPX5(UFMW1K;(,TG`YH!7YYP<<2LJXZ.
  57. XMK8(RM!CK%NN,A$36]W^7[`*PC<0.#G*S!;"D5J(Q5=SRQV9C^?J8FX1Q=L<\
  58. XMO3B%=Q8U@`@;0S#V^&*CGY8\O@5S#H%5COVHT(O.<*(70CJB_**T*Z@F6B0P
  59. XM191N#0!*71NE]92/\J/K[PS(/8LJZ7MZ>"7%RT.T@IU&13!52OM`I$Z^H:DR
  60. XMNGJ8Y3M1V"IS-HJ]#_>Z`SES\N&RA-Z*L$0'[4KW%G()TUY=<P0S[=Q7A^D^
  61. XMI8DN20021/E6$C5'O+<Q>/S]5C5AT)F`0=[J>?)Q)/VP]8TVEA85C(@G6!F.
  62. XMYQM)BOU""$0<&M.*>G;/=HJ4_6')@X"!G6/*=!M21FR*C\%-FG%6*V-;6O:/
  63. XMME+&XHW.O2[+"DW%>W5T+'3<F&>"<AZM?FPR%.:^NRV^KJVLC]G6,:_DN`C9
  64. XM](OUB?[K?!HJ_30[P=B:]O/#T]*H(9,:4LQY"K%537[>F8+@MA%&O.1QS[AN
  65. XMK4$8.[<1,"\0LE$9!$N(*4@)GYC<&_^R)!GMKA85S0:"!+[(`3NC7'M5-E\E
  66. XM)&I]OF"\:!MP2)H!(MGEE!!?.&'I6U?Y:VKK.GA5YU$$3I13DS6@;=WP30H\
  67. XMSCB(/SHMZDTJC68J+>QDUFI#9H2J((&IIJ4G*:1U'_K/&4"T.9T(!_PV!`.=
  68. XM>GKU:$Y::G7YEST+1](X*$SA-(J[)>!9T7G>=]_`=//92+9D:B@HTN30^?@C
  69. XM8EFN_5Y=K"6R42E`+RUQ]_8Q2#<F\D&!I4>*+[8E/L]QN^22@%ZO-6+L+_2P
  70. XM3GKFO.;B\HETMG"FN;+<5VKA2SP4)R>2D3!I'^LOXG7@(.S=0]`*9]0;':%Z
  71. XM%#R9A(,8X+7H_+JYP:]+LEJ.Y&1AZ>@KJ:M;-UGG62)F'O\\>Y1T8(2'R^N^
  72. XM/EE?8I19:?F.IBPK6[NW7,6W'964LAP;._-**?`>U^35`M.``+'/XMO[LW;?
  73. XM2^CUWF)Q:T0A0DA`XREF8K^%#%N[*KGCK2:D&]:HY>31%^^.3;=R#>Y6QVC7
  74. XM2W!VKP0%G.*RBZ(-NJB<MRV4_BHTC]D1?-\OD+57W5B@^NW;7,0.5C283"AK
  75. XM2BS:((UA63NQH>*+__=3'E&TF#[?@H+?8"DL-@XH6++N"H#@$F'^_2/H*K9<
  76. XMC4'AU(6ORV"<17_9Q7S4PK5N[>]+:DE?!;W\6HVF-28FI%#@NK<QJ=D[LG*:
  77. XM7"EY%FKG>:FL@TUAWSQ)Z5HW>EMZB5'*M4J\79WG<(;!"?3,5-;)?H]*3,3D
  78. XMESI9<=O$6])_VHVW%>-]E68X'40_7:(-$#X'ZO?X%.@$PWT+EI.K!X@JRI7.
  79. XMVO[8@LF5U_<#@O(V@DMZM2B\,1BW!DJ]65QG:3#*4$_NW%]4A?(S%*.Y1/(0
  80. XM?$`.2ZU)I7Q@*BZZ4J<L&P$,YPA_K@74JZH.;\WTDHDIBYK#`Q8OK$:=>WHU
  81. XM_\?%8_F[Y@(*O::Z$L'-@RS^>^[6LSJOE1F%";]&3`5#&^]`_9&MV[3?^@^3
  82. XM553?6<7LB\^8.`R51ORT.U;"Q*9:M;3]H:E4ZY[I1OV):N2(&Q5@M?Y_3<I\
  83. XM[]#M4]C,#'139PP_!XV%!;`I\JOP)^WY/=&/"GI6C51OV.ZJN[BNK;B(2,3[
  84. XM`E<7I"Z?I='8W_:J!S?2=?+ASB#>T7.4P*X,)2ST*9E)M?!V)!7XE,+Q;\!:
  85. XMO1J[3$0WL7WAM$7>+V9".;]EQ]N[C_R5*^/%VUHS5,5Z7NW@B%A\)D^40]DA
  86. XM;73@:0EN!])2:O7O`8GFP>3NG+X-?@L%?]M`/W\]6QRG;P<ZXE1[),A7^U]_
  87. XM"4SV+T]'AQ@3%J#*$Q3>65@0ANC2200.WRLJE;Q@TU[3.M6E6IT/!<\OZ^8)
  88. XME7#F*]5U^0$?`M'^%6-5:P0%!(-DP??%>'.RNQG`>?4S1>*-C&GGJM.@KAP!
  89. XMJ\L)$OA5]DJ"?\*M7CL9MMY7MC).==YEZ=LX\P!JH))>.%I.'CMFJS6!Y&&[
  90. XM>KG>#)"PGRP[J"HQX0A+F+6#3'Q3M"NRI.7BX3HVTJ596'W2S(8.&ND2Y-X6
  91. XMVDL>ZL/S&86EP,QVG\P)+0A>:9J_PL.1D*F]_;V^;(!C8LE,:C;EB>,^,,9S
  92. XM"X^5-BDIPJ2/(/SHW-M,I8^3LJQ4"E*;IRL"5T7VB@P/)NJYL)KN;0C')DG&
  93. XM!QR^4AF8%`H5%'<B&@2/;A7S`/V\A!HV%[%^M:CLM!4Y=P]K=.GJ)'!O0!%L
  94. XM7/XE762\G1EG!<@[K*X]&/]IH@_5%00(HY%T5!,I=WI;ABN^#KQ<QEWI^(:U
  95. XM9U>JS<6G&>07G(/@Z9\_A%:_M_"N#OU/^R`#2])U8$=&G2ZC`O^"NA!F=7LE
  96. XMR6%/"/A\4U*@@'E<5EH[K4\,F+^\FJ&8ES['TW/WM'Z.<N:4@#D6QUC>P%5W
  97. XMEPX&%O^/=IP>?ETFXIRPZ:Y''@PY.+TV`[S+^$.AAJYH@R;CR3(!Q@1@O.8.
  98. XM<ALJ9ACE+>.CKRE1$-XPRY5H4"#`ULB#G)LZJK<TP%IZN0Y6Q%7="LG($F-[
  99. XMBHKASEW77B.[JK&X[6V[RWY+&#W/R,>J]EW6<]0.NZ@%_\U'#BT,N\,IX`T(
  100. XM)7$OGI5X=!VQHQ6K33N=/YW(CE`23@)T#C.FYS/D#):<X"KDL2H1"?69\\<A
  101. XMXA\HCXS^[!`(ZN@FEL9%:FENDM#WDI4,C,H>,Y\&$R+`(.8)'2P-I)\8#@3-
  102. XMS@%/(0\8#:W]%)#7>Q#@[)1.]APPYTDF;T6&+%6GWHS#?UZDD^>1%#'\_,&=
  103. XMBIB!R'^&OJVIGN?=26MCKWEY[&XP/NB]$MXD[V9/6$UF]#+<ZP6[[\)9>(@O
  104. XMA5[-PZ4VWF,9X!>!7!F,"\?J'`X^^+X'10CX4DSDH$6WDFM46UH,$-I58RDX
  105. XM&%GZ-A2&M+NZW>GT?>^MV7^I(SB,7>V)VR'9/1L=RH&H3%[D6_X?X'GM[(\(
  106. XM7Q*O$-M-(X<;*PGG!G8I_TO"</7ALVNOUZ;X0&=Q8]#7!LWZ3"S)R`BLQ;\`
  107. XM;8P1A@E&#<I$S+Z(L9PGGOUN(CB.)!()4QQ<C]X8"DI#2M(-.R$YNCYQN?Q#
  108. XM,K<[\3D=9S]`FY(%+86PZ]C7$T"7J]+XT%:$SG99T@UAA9F#0JQ5N*F\2BJ`
  109. XM<2=YSKL76$`@Q8/W@57?NI'Z8>IK>`RP)ES68=0\N=F_G:K`R:>FH53=S<Q^
  110. XMW9[W):9MF=;":="39F@&A_>"A84P@Q@7R!>HL?CW62P%@@T<J']2N5`>%X24
  111. XM!,>32/X6Y0V9.&P--L(**T(G?!,$(RR](.+/LI0T.4^4\S8&UP06,=#NDE96
  112. XM5\E3N_.YA'_O(DMSYRSOKJ+0#X"H0FCUB1YDI0$%8!0N#-&$`H95]GE&*)HF
  113. XMYF3:EI_FT8#TUS_;&6__[7'F=JAT9S=49,4-,FS1:#3(S5!`@J4=75$!&:(A
  114. XMU>#O0\@?IXTTE6";9*"2UGO4<H`+?WY2-<`RI2QLZ1-HS"EIDE5Q#!5OPV-'
  115. XM:UK6:+KG0+)TLSC@23-L#0Q4(0&C?97]XH!T"E@O!W-YYP9O!C0MZQ*^77:%
  116. XM*7/9;#G09=Q=U'8#T\F"R-!>79.6]_..).GBQ!F>$O-(Z]68^==<-HJ0M_"&
  117. XMV!V3=(*!XH[0N9J!>MW[DB/4UKFJA@M$9V-!\.P4T:O,&ZU3E^.2'!OK57"S
  118. XMT":%A*4\(4QT(Y#<[G=NW5*V=U086I1<5ZV/8AJ]`]&LJSFC(4`TJIG'TG3H
  119. XM_LZS&WXSCN#_^")^+;%P3"NHT2MN9"C\0U1>?/?P:VK-]`]_#;6J[KX9D/R)
  120. XMHSX4+[O'H36O,.@RSU>I>P;'95''7?3D+__P+/8^`PFN4"LJ^"64(!#T)XV:
  121. XMN)B7-0<2K6T7R*Y&"EMV&B@;:A&4C2T55BDG1T&DCA?3@5@/M.Q*?.]EV]X&
  122. XM;GALQM+-N[$2!A^V;P+K`$6;%[^B(7,K08F#\>@,<W/L<7SV(9LSVH`!?F8O
  123. XM_;MM;$9J`-8$7;LZ$SACH461!N.*]?DWFMIU>_.UC/H_^"J?.VJ%A&R".X'5
  124. XM:EL%1@.0"&O;ZUEO^Y"?65C[BZ251.]&A37ZIB&QRK;T&B`:X1[2Z>@>6\B/
  125. XM.0^-4T:)I^`79[4FSS^!/?/SA4$AN=TXJ4^T0H2Q4DZ6J"WC=)7-8GT%!(E$
  126. XM1F0HM*`%7S"U*UO;>WJ%E=71DD3V6^A=T[:%\<C#@</L#;ZK8Q'W4S?%J
  127. XM*``9P?[&E+6$#U@0X?A#&8Q-4D^RUY0@]/?HSU_O=N#O6NTT<'L2R#J;3:B:
  128. XM#X,-,U(^8`-^]JV!&\^6\/'P%S!-HN*#$[MV&1]7%$H.05N`YJ<]G"PQF7AX
  129. XMEA'UBZ&7;*L#BE3UQB-LWY4=+Z3:G7U&BXB87P70BB^8/'^I%[E+AF,W-6`/
  130. XM$5VV02Z$V^(`5T7%LWQO;DPR30E^?3IBH&0[3'Q@27,'POXT3*BGI*\,#9>A
  131. XM5YB>59H@&J]2!0+.;ZJL%AS(?A+=$-"NV`A:L-#3)G$D,=W<75K&N&#V*O,+
  132. XM);R:+CP_>"4\=2+KTG]<C<Y9<(.##S.N^?@I;AI3%S11Q?N=N'N/)R&@N8;<
  133. XM]25^D+=65>,L0\@1`L*!K/^0>ZB-O%R#G66#P\(C6?IP.AXU9;6&L[(X.M$X
  134. XM,NK0W-9MAX9J]_8+;9LOA_#.[TDH53PCB/V5E*;03'>8K$A0<J8Y9X5%6"!S
  135. XM@F@_L6!EFZ&;B<'.267(!4-@F,6WKI4%L\HZ?1OWO[==^R;Y-TXU"/.LU-L\
  136. XMJ)$9T"4)0*A^:0&M[8<\/8>>$YS\@G`5KS#)33URW$`\5E6`Q4D`ON#479-C
  137. XMKA6LXZ8HRWJF3#.?$O_^32W#F^)4.-A!8)X@75L(LS"-COY.2.8NPY4]*K&(
  138. XM59N1XJN$KSK=M$,NM[>@P.+-SHGT$*ZOKMS$(T>.*4CC1DA:0PGMS?,Z[<KR
  139. XMG2U^`#:JZSR;'%N2AV$U`&F`,RX2^8.X;9074Q4]$E59PUN$'8A+A8^0ZV2]
  140. XM`$V]YB^,S5FO1%K]>_C12L_;-;]A)[[WBF=$<$*=:DXW$0[+XH\5XF>1N9'N
  141. XM6P0X=24D=HC6;V!MGBV-%Y9!DAP2E2*O;I&:^/0Q/A9$=]'MHFR,R,>O>-N"
  142. XMAKFU_"C*)K-%MI;R/E%S=CJE8:?]?"C\.<SHK8M2`G)3U^%EWQ@KT0KWQ\>B
  143. XMIDZF+$%`L\2@1:=58W8W>2U,JTJBVC$PP[3(LES>NKO-(QO?UR(PWSDVZO[H
  144. XMR!8S=,K=ZD5ENRP?:I=CS,N8FI%I#;K+N(VIXLS@>:0:4W`"XW44%A,>V\XR
  145. XM934T<&W/.O1=3^8KY$D#SZ]#6LM$FQ'P#;V`N[I[<=\I!K[G4&C->[$TKQ"K
  146. XM#D3A1-D%6N[V[ST5H%!.-V'F-!<$,>CRWU.G[T6KHV],]IJ9\P\<1)3?%0DU
  147. XM5;IO$1!(RC_3GW]@^S4`-CVG],(Q^]#8O2+*==H-U#Q'/FIIWRM!&C^-%V7@
  148. XM9*A`ILYR/+YYVVV-C#2(QJS!0U842H*SRE9.K]),)DI>P>TE@<I_R3A1M"%M
  149. XML5?&XW>/PGX7XL(4;;P<48-/CTQ4@=XA<2H]\-63$E\0G?-%!\S2-#/,!N$`
  150. XMEU`^4S0R*,3$H@9[FK!'EH1U[2(CDNMB'4P$EP]-F9-*20Y4H<`*Y4\,PAX-
  151. XM&!>@Q2H43\Z:.TB9WWFK.9*R&P"V#VEH.:_#I(>]7S`T7JAR?KA6!J:DLTLS
  152. XM@A8PU'I*$QLJS.AH"UC:Y$X(!5(,OVSGX,NY?-AZQ5.,&0]TX,^9D(78/]/"
  153. XME,`1>1EWW>.M<LNO2@8;ZY<8T1AOP%=`V,H\VJO&%C45/'M(K)BTV>AS<INS
  154. XM.N+_X.;.(+%K,><SQ]TA(G^XWTB%.=0:L8@(IH!_`&;;D(<8*:LJU&.Y,C#W
  155. XM8&)C9OZ9INJD59FDZG-0[S_8O%UAEU\(>P:@77P*KE'_F:O0R@*CQ[D8X!!)
  156. XMJ$O$?NJ`?SKGTPHV2RYWO#.8P'*T'#X^,(&2!]J#"P<A7@_'!>5+IY^E?EI&
  157. XMW33I^;%SAMDQ(8<>0S3*U!F6FLT<BG9UKQ"E%>Z"]`(=UT:$F1Q2^,"[/N!]
  158. XM0FY%JGRR\+"QPW3!L,QF>6*[R*;&@IZ30D4P1F++#2D/2^#?2$';Y;9:]3LR
  159. XM7=H-Y^;.+<T'G07;S].*/,1-X,C2"NO"1GYVN-G)X]"'>*F4D^B<31[Z9AOA
  160. XM0=G8VA%X%D?F?=9`D8/<\S0;&D(]X78T/M,[B4EO'`T*,2<_L6O%6^%,`.;E
  161. XM"EZO"F"KX0N5J'.A"0]]5B80WY;@U/329?ED</A@`83ZD/8]Q3L4^Q(Y#>OM
  162. XMH.H+,CV6YB::&6[9=(\ERG54!QP(!RE\ZC(#E?IGU.?!JJGX?0"C=W:,(IAR
  163. XMB'/H.%PO7'^Q7FAY?&DZ-C)AEPF5<80@[0,*"OZ:+Z*A/AD&=CIJ))E&7@>M
  164. XME(!)XGSJ=SB\O0Z`%24J/$5ZD3$Z5CC@?,6)$S-N(F"3J0R-GZ:*J4<;H:/@
  165. XM]3R'MK6(^:592#\[.N::Y\L2:E-_/,PZZ$(O;=HI3^$KKV9U-Y;6CK"A1"[]
  166. XMXB=K7EW8.UX@06-<=N7,,QPZ=BRH2BQ&OD09>ZZJ<V979`W!>[^3L[R[:KF-
  167. XMP[;*R>7G6M38"C"KS`TG?=V56=K1H:FL(XK_FPXO_*NJ&JAG">S'TSM+19O=
  168. XMW#"#BR/,#`N/_*?!DO=/O0Y_%12!+0BZ19-*1[^9F"BF$"IG;X(XCQ_[!,7$
  169. XM97F<,BM5J!LU"86<2)JEM7\.E1RA%0(N+8A+MCS$\D::)'_%$*RK[GV6F#^3
  170. XME3R0%`_G^;&P!(CA=NO9"`VG"]G4,V@R2<]$.U]3*[S4N+>VD3:&QC30LJX(
  171. XMZ!!85W(6Q'?^47>+WQ>(8+HLAF.P);1V<>UY>"X`37J:)E=#^6Y>(L2`ET,S
  172. X%A:$T1XP6
  173. X`
  174. Xend
  175. END_OF_UU.test
  176. if test 8718 -ne `wc -c <UU.test`; then
  177.     echo shar: \"UU.test\" unpacked with wrong size!
  178. fi
  179. # end of overwriting check
  180. fi
  181. if test -f UU.test1 -a "${1}" != "-c" ; then 
  182.   echo shar: Will not over-write existing file \"UU.test1\"
  183. else
  184. echo shar: Extracting \"UU.test1\" \(8715 characters\)
  185. sed "s/^X//" >UU.test1 <<'END_OF_UU.test1'
  186. Xbegin 644 test1.cipher
  187. XMUOK1$>_\&3%/P4O]]LZ;JN[MM6#C+3$&?J4MLCT;V=B=?5&/]*CR5I1/N(ON
  188. XM1_Q5C1[H,X1(`*;%6L.1I]Q=ZD3#Y=AB.6!YF]-ZU=?VU0;,OW[400:*B3@T
  189. XMES+W1/+3V!70X^+7[8WKW]T#(9:A?H1^RGR8P<+<0Q:P%"!4Z\VE42_N`,S<
  190. XM`<DGQUHV-3[JK^C?C^B-M8_(W.1LUNEGYRB"Y(D'N")`9CY\]>S85^T6.-9)
  191. XM5.U3".(V\3C>HJ4]FH%&!`.[3T&D<4Q+:P]_3R5F4R+>JVC;>6<*%1E85]!E
  192. XMZ)KF;A-?.D-<KSM'6";`"U3G$B4&GIVO1,GO,A```9*RC!)0<%BU)=#=QHI-
  193. XM.-S>@:7OH#Z`B[P!G6H?&CPYU9<V3P4S%)7-!__GIU*4>G>)+@(=+&Y[BN9)
  194. XM$(;B;@4*8Y%D:!U>*=<Y,57V4X<S<#'QC=>W)96&LR[[:W33&0KU)I2+*(.[
  195. XM6R;'C(FNZ*R:L4WT>),G<D$KYZ9[B.JOA?*L"5:4M>I<_N9L,=F@Z,#IM>/=
  196. XMASJP3=0K!4E0(DZ#-EH\^/G]..&I3MZKWBAB<\R;35WC;/YRT#?BY_@#;C'%
  197. XM$!5X."6<FQ%['U;#<:,485-V,'/G_6)P@I<>S(_*+L]19F6<KNSWZKXGJ)$9
  198. XMC_T"9?^!GVQK5KAT^6DY./QC\6',/9[CDT":Y]L>UQP0*:(X$7(6LGYH$QC6
  199. XMV!>_ON@#@^+0$URUM9/*VBVDZO8H["EF\\HCCNIEZUSAI=H6HLNK?##8L;"3
  200. XM)+)5L!5!'L\6&PH331+S-QR![O%\PH6F1D*80S`"R<2K9B+A<(VY8(Q>E1,2
  201. XM4>1-^C+%B+XN`+J7,+J[KM:LE;8?Y\[./..CWN#A_TH_Q\DQQW^5_=?@)C/J
  202. XM%5GS,+J:&F;]#,;X;^H'[X\$1C;J21>(",UX+N?;Q6E^1\6K$WVPP"@UY4X+
  203. XM3,"4!%0M"G?J^/"[,P()74=0=72XN58`JP)_M&NGJ2/`K:49JN4"S:8BG=00
  204. XMZ6?G=@Q6])UV;I,DOOR-3.I*9`<&"JBQ,_;,8PN?U@1YTGCL_&[;AI1N?2K!
  205. XM0N-%2G[4%Y)4@KY;O'9T98RVE/<Y,SG(].@@W1"K#@OGR$RQF"$B,6'!&GWH
  206. XMLIS0Y/.W=;7[(HXKH0JG:)YI:YI=;VD5S&R@M6ETY!IU<%[OZ-T"Y`$R,;)V
  207. XM(TBZ9&,)UO01/NK`K9[H`%]YY*;2?5.A"7T'=%IY_=N]V;."BNA>6>/RX4N5
  208. XMK!:*)DT!](Z[]Z%\?I[09*QB/@/MBNJ"=S9MF[^"D(^O"TJUU=%9O?^-X2?M
  209. XM-\M<?;YL]$B4W]E_:P,00;'P?\DI._.Y+/`11@\7(4+AZ&Z7-['L:V!I9N8$
  210. XM3D_88M*%LXC<L'?==?<;V4"H_8)?6<?A\$WEW7-=OUN+[GEI<TG\%PFUD&%F
  211. XM9?*&_^SX]0HI42?9>EI#O\1K&K3>\T0:(QB1BD</*0TK>:^W@?_^FFFLY(WR
  212. XMNONXZF5?F1+MBZ9#W>7(='V-Z4=T[ORG^H9L,\T5W2-H_/!0O@@2QL+V1T^+
  213. XMT1P"28.Q%Q,@*YR@W`)HGSUVY0/4G+H,=@KEIR(_(Z&A0B6W4J*9H!F`I@(F
  214. XM7P^<EQ9>42];S(-8@$,"2$12\.^Q/P;UVH>2XQP;:A_'P19+2,!(QDV\-$L\
  215. XMGI-(12V9XV7(OV*Q,_.ZP^MEGF=PA(L#+A6N1$Z89&/^244+WEUW!^S25VYE
  216. XM>H+([`02XE?XX=X=8\T9B%;3>3].4T/DPNM1M69&;4/5;6Q/+5-/*<UYV?')
  217. XMA9U?[`I&[,D]&^B.3]?[EN)^AGP(6I]P[7S728Q0MV!@=TW=0*:E"3*L9T6/
  218. XM4Y#L?XU_F,$M'!NI@P+Q3D0DF#1`<F-)^V&U7@/)R,=>5%I)@$*VDHODU$C2
  219. XM,S@$?U6'+^D/_)+IP13W]D:8T_>)\!P:_Z6LZ`1Q#*YKB()'1^>T0^1B\IB:
  220. XMO0%^?2>X9Z$NL@QFKXDC2BC_L,WFV[/)V-<8[`;J*1/GS;ZGI,#(9SHYAKDE
  221. XM>B.\M[.B]QIQ[Q[H(I9^:1"2ZET='/HZ5:+VB/JQCV17>/M*[(YNGZ^D"TRB
  222. XMP61R=V&%L],`,$HPBFV,ING)HP;EY.*I`5SR!,1U]#[/<DQ+(^M(1X-6J!Q[
  223. XM5]*;/3UKH4*M-&%Q1UU=*%0"Z(JQA5^#W[^`=S)`VWF]2$$KMRDU-,Q>;JW)
  224. XM6ED.!>1FM^]9*DG\^^Y=]R.<YH_L+R3OB^*;YPB#Z;8:9F&2^ZV1Q7@P&*>4
  225. XMT+7[T/J.OY6$BL:FN;+D5Y^G)"HI5VB9TE=Z3'BI%G6)>;HI:H?SH;V=!ASW
  226. XM]D&Z`J@2X-_H_"K#)8[L0U1W=A*ZT4Y33%XXF<(PX3![=E5&8G=L9/L.LER-
  227. XMVYNGM90=H:![7)Y95EC'4E'QG)NKX,TSW>51Q4\)3;?3&DDTO,Y]+S3E!<AB
  228. XMVJAWWO?<*-I`BQ]N@JPEH7[>?`DKVEI]XB:@GP]"O[U9"5D*+.H%X9+)P&B<
  229. XMIHA?()FPI,2,;QB):2+<9J:A5W^A,&:.4R0.D*HDK,JD`NV4_304S>^"3#PP
  230. XMOVG:\-(#0/.Q<7<^=:/Z]1G`CI;NWI3ME?4SH466_X-/RE13%2_^'",-"QU.
  231. XMM!6/_(M:KB")J]J&Q7P5N$YX3+\]8!79!4Q<4O*T6H!LOH8B5FVYVM2+?JGB
  232. XM^$^N5`.*<FFLG&YA<[:!Z;AITV=-E,]VT4HQCF\)GX)M57^&$OH/>@7A?&J4
  233. XMK7X<W(7[UVW1S[.WD/M)3.P1U8P]1L,0%N6=L8,5T@E]QMD%EM>^2,"CX*''
  234. XMN]FB@OBU_:ARBL':CJ[<#WYSPK$FG&F'66@(!S#*87;9RP=4:DG\/H[0^,=!
  235. XMC#_+!!:BBW&%PJJK%1V4#MT`"UC]_`7!JPA=S\_'1WMHBU>;!###PB73`G7!
  236. XMB2#%U?9=Y$:>D*:^`[D9%/'NG4^(.XTOF`MQ*PCR.P7S+?=+B!@@@T,:&50Z
  237. XM.W@/4M*-H,^"!-ZSP,A'03)(1[L\TRS2$-!S3:X[RWG<0)>(%O;8]?,_%3V1
  238. XMX!'-ZQB;R<P:RB^&3HV%!(-=`KI.7`\EZP(7`);2K]-O"U%00+WC#+@=YJ%'
  239. XMB<U+5#6F3*`L1R^J#9<KH)2GT#I#R"(`QJX1);K*""B^3\K2Y4`AF9/@M-[,
  240. XM+:CG.WC7Q75\CS<BNTE_0;<>FMB7VR>./BB%?Y01YD[+S12S?;=70*Z'#-FL
  241. XMW#':4L<MD=+4!#1J,HJBM_>%]4=8*;6TH+)@)..2)8,A613^X/K=E?C'NMAE
  242. XM\DQFR47'!W#$GQWM[)M%2P]U^<%I#`O:U/>N]6`,7X+3^>*-6=)-P]SQ!4C]
  243. XMB5:!U)1U/(D?;\-,9,W,FP:OQ(.(3B.IO!E95>V4;B8EP;12>Q"*4GOM!XU;
  244. XMJ\NIU#/W_DH?C"2MQ\L*>'@F`S*Y`-Y(]B<X0X0=)Q%>.#Z$'J\Y.:H!J,$U
  245. XM^%YX*3W`"U[62!5EJ>O7RG_K_>E;MBTL%YC21>+AN:7,5N_L68:DSC"+U,4J
  246. XMVIG1ZA$:3<#Q>,RV*GB[!IMR;^'@GVT?:8!2)5]>#V:0T,-\P:;[Y!@^/(]B
  247. XM],.."HD9\X_V]9YEQ630HPN3"8J>G)G\:Y$".+17W"KHD>JZ#IK'!'['#ASH
  248. XM"R)%`0<&.72G^QD>!9#?M8S)``8'UXJ%#>%^.QR#\JN`0:(6?'LZI'A/0.A]
  249. XM,/YMZ1B\5D;17E;;DJ%[A:B9OX)3'`1<3Y$:/B,I4@)W`"QBC>*<SOGIA_[L
  250. XM'_OH\N:4;NZ-\XALRMX1TFTZX,/>N%"_VT`?N[KL8.3SG6W+*P#@!B@A^PXC
  251. XM>P.'AM,?<U+P4,.-071@]E?KB^GHAMB[Q[7KE*@.PW[HYLBO.N\1-Y:3P(!<
  252. XMPYB^-[:/4M/=?AQ(&D`+X*6D\:)T+E/'J@TUHX$RU8!M@P-J./S4Q@2]_37K
  253. XM^C5:,T`W5NWRJU.KS<<P3?"CV6=P;U2\',[1N5Z9$[40N<K;Q,/=VMJ*$MX<
  254. XMU/#*P28L_2//S#H`TX2V+,S]_!NU9<?(Q>*F:`0;KPR/7HT_+EHOR;I6`BOL
  255. XM.+VDAIV.=*B9HX]YP#N6<YEQ=C25%<%T_TK;YTY&#&IC]BI^:X!I#&OV:;HC
  256. XM=G.0G^Q.C.P(ITTF)<:RM3]N]I&LKY4Q=XO9_3+[6P?X%ZA$I_.%Z%0&Y:,,
  257. XM"H\(W1F+F"VLAU:1.+?W)%$+LFV@\[>6G@<">Z>PWMGOVNVE+#0$_D;F_,%_
  258. XMOYF:2?$BXH2\VP.^7M5UXGF^<6YZR6*]33:,--CBL^L7;>,Q#$#[>C^20L=+
  259. XM&N&RP\LBR2?XF8)JA[,LP#*"ANN6'Z#74N7=X)_-=7`98<MT?G:P[]0SD
  260. XM-ZZ)3DW]Q=5#`9N'\WZM@-\IX=RWT[5*C\]XU!="Y;SV-*:X(?[]Q@OZ&[`*
  261. XMM<)-6?6+`X<(Y!9Z&3'G4@O"P).Y`_H.U4.XLE09K_]C/ZNJIYRG>@BQTT(`
  262. XMJ#X^"D>.Z&9LS$(9G'A',+>89%4D-[L)\3-<")8;"@+N@>PU=DIDX<_EN?P]
  263. XM^@)`Y'G;"AME!:G0.CF.%K`\-'\R++[1]E;U*(**RX@@=44)<@RK;6:K:CO1
  264. XM]G8)H6,7K[&M=D,-5L3.U5&D#_R4#5W96T5`5#/+H-8MG9SCS#`'!@2NE,VF
  265. XM+<F/I_S%H@C"DA6JMFBO06H_`@$W?H@7!P8B?%UU'^@.@EHH6#Y!3?BURG-0
  266. XM$,?3-Q!27^00K^$VT?E_&-OU!FOR8[HA9=W/B;3'61?W%<Q4!6H6T9/[P9!V
  267. XM*W2/,R=%B),6S,!CLUOGKD?FB&O%1X1T'XB``@:H`$HL16`4M88^MSPEX$M:
  268. XM):**Z.*QT1HOM=3;KZWU4?.MK>JJ<HBHZ_\-]N;[-<GNW0%E@J7]LY?Y(PL8
  269. XM\C\T0R&;ZX1<+:,`B/YO([`U-*#[KF,8%L!]JK]!RFD!YG&L1"LX#(0GL4PD
  270. XM"UY]0^F%=)[0X[)D8Q2KQ;\4:L'B!Y(K_)LH"@!KDP8.JP9O4)%'+^K1+%WZ
  271. XM.<-X"_1O(.<!U+G4W>SKU$K&J,TW3G[RC=[MMW>ZE-A(<T^;3ZR0%4OR]"6/
  272. XMY>0>(.H0<9W=$G>9A7S[DG@LDVFXEF92M]9\,DK5Z,D[KK^CHH2F%HRGZW!O
  273. XM^//F)(#5A74.J7K<6^1EA,IX74%UV^)S@C42/T9%)M&8"O^'834_33$D.]&5
  274. XM._U6*5<=\,Z1)]UWQ@`.^"MF]1YN2<1L&=Z[NI-*:X]I6`A$:3<I\Z<!>8R>
  275. XM%J+PO2[K.RS_HB@5?OU"G/?WI17G_:'DT:G]B<>X__Z,<-W8_<F4]=:%U-.S
  276. XM]&>;'1D&>SN1/0W9IG<>?B=`5'$-([.$V])ID8,TI_J0Z%CS1$]*._$8(A;7
  277. XM>3GBC"A>G-T"6JQ8O5R4*QDTZVGE-WQ"A8GJWSW=S4(``M=%$F,0W>E?EI^>
  278. XMWPO*4@;8]IL]F0NG908Q-',Y1N.Z?TX)0#.F[&WJ$F]I0]_>Z]S=>,N#+>4(
  279. XMXV#*DDNBK17;0`=.3;8[#P3O.J(UWZQP"IC"CJ9RP0,LDT144QY[=1^E^,I9
  280. XMJ!DZDGP7IQ0WPK[`^(+I3OKR5>;R'^T:6^H"-@:^VT&?$47'83(Q8O0FKXA$
  281. XM94VJ@6^?ILA44UU:>Y)7G#[H7D3J]AY=.)8:A+.(3-='ZD[;@[\Y>9&I>\QJ
  282. XM7@!`*C/&(L.22?B:X_A]&>]>(],]!TBX<#C]]'AK=KKW6EU0!$027M<[)3E7
  283. XMA)%.ME'2<VXN[@S,[.M;@Z=HCBT5-AX1BW=MP1^:?_S(%VS=Q@3:/$[7`Q\9
  284. XM+.W:H"E?.Q2+J9*L("-WF*>24ANU[XV%#H]#=1\1YB^-D]UR2*I5184B0F/3
  285. XM3NB)JP;8VSQZX,;%J#_E,D].K3U-NPH^>K<[1"M/I`M9R<CA@1E2.<+^'K]*
  286. XMUWI`/-SF'["RX&1PM*H>;,!J,KQ\L_JNW7=^$7REX-\17-.(S/*E8<29'(2U
  287. XMO80($8$%#EXX&X)W-'\L[=9U8!D)""7[8GV"`(ZH%R2I%5]J3B1&X6`[\9`7
  288. XM@"4D.X1B8#X[;@AUJ0+#<?_%8LD8?PJSLA*7W=`)#?H@0_E!0"[RA?#.<+QR
  289. XM-%WZ^5I/3C6@]X)=2&0O1X:`CK?Z)]#/?H"@#?J]G#,('_4WU11KS5J]_@Y4
  290. XM]!K<;GR<+;1<3&#D))9.$B-`$)<?[09QOM:E3SB-FHO%P,,IM#@\"*TTU(T7
  291. XM<KFR/B4)J65$I_41_S2W,E#Z%QC\<3,EQ4/1+Y]Z>:I."^&L0C4`?S2N#ZQC
  292. XMD00U-::;RXJCFIF+Q7`9+L`-3,$6!@\3"Y0=I0OG3KH:"OZ1INWZ+8?KW)`C
  293. XM)^X_L!Z"K][6ZP(-MO$YRBG/XE-2!N@70THI(Q0A`44>29;E=39F](6)G+'+
  294. XM$3E^8KP"*GX=LEN2`]TU^T1E)X`>9,^DS3P!G/.W.Q+J6)U?B5B^M4PI;LYP
  295. XMC!:MYKUVL5W+J7UF>_C1#H9P(65\1%3W4I:(^&0>G+I#-DU*B(HV5W=Y$6S=
  296. XM$1`+3O_7Y]4R87QA:O^"3%PIDC+")90/)_S9];UVXR`E4S@2$6`VM(MLH\$8
  297. XMM\&UG0T"3A^'LWPB@]@_D4ZW!Z:BA1@S5]VDK3%K,XLQGY1ECIG#B<>CV<G,
  298. XM<7#*6,,ILY9&)F>Z`IL1F=5,*RJBFX&9^RHZ(T2P\'HC'/55)3(>%1QDH]1W
  299. XM%GPS^2Y$#4?&;Z+M[.J&:3&8ZVKICR2J@ZAU'PEX>+B&4P,^(4KAJ0!MD(]7
  300. XM`9@#%V6ZUH;4#8R3`B2,CZ\4<=QNRTO)R)<LBX5F<=\S!C!`4+)./^(]![(/
  301. XMVD1!A298"/<_)Z*MQYBJ342G&$R1>%8NTOM2W'%$9F5!I[]#8/*CH<*B;I=;
  302. XM6AR_,N8VR@"3VW\W$0<`U#+)Z"K/OQ*BX=T*8W1T)R9=:VY$;%Y!DMY>%P85
  303. XM?T$"]+3-/!L:\U_)_W)EU6$'$,(2+YV^RLM.R2P)5\_\Q?H)I-#^CF;[5`9M
  304. XMB5<";(3CPX$(X#FF%*1^P;9TL\W?2R(+"7I./$Q@N:<=`+N:F:9""0,#+>&2
  305. XM/J6.K309.C!.%J&/?"KP'99$G3@8<8'5#!R8T1D83)A'`D@TDP>!$T4='.T@
  306. XM3`+!&>?A5!%).X:7W])*HRO-1D70Q3WAL&VXEKSR,6YD,E18Y:DMMV?6-60`
  307. XMF4A<@5YY5Q(JK^E:@5$DJ6/SP)F4Z=(C?R$5N<<#SQN:=@<G-5;)A;R2NB]"
  308. XMX4#!`M3E#<Y$)&USRVJUJ^D"<-ZIKC9`4JH\I.O+TG!U$1(+,$-"$<P[*J4H
  309. XMTP#Q8-TRY%OYRN>F$1G<T_NLP9X2K1O7O+N\4*7O3E$%%#J>K-;\NPQ_VVR&
  310. XMQ%TWIC6>`B3_T9F(=7.&[TDH1UUT6Q%`-P8"XU0*W>VP_ORMM>3MPC$GG>&I
  311. XM!9^>NL]!UK:J>I8.Q:<SD<=ELN`8!38]ZK5C_:'O6)9=4P_[7?G]>79+N,!1
  312. XM_#23(B"PZ8=,M$&X@D+W$9>5,"^K>::0=(UKN:2^(S`GG$;HHTD;2!7^6J1\
  313. XMW4"Y/GA([D:/=J^!;4`Z;3@YMJFXE?.YW$D55-%!&!<^QR%R'D?5P8)EJ<27
  314. XMEJM%$[XTO-2>V>8&"MG`E\M-]@S2-I25XL+NQ:7D+!X=]@I+;$^$:>^.:VHD
  315. XM_2S8OA&,Y!7N743ID;^^?;0VV@G)079%/=,WL:UDNQYS11B.M,:C?7QMPO\E
  316. XMX/7LMA'X#*I`H\IT1(>I>VVO5ZW^I+6]1?D($/C@`:^@K?8X]/1=?!(O]>WM
  317. XMU#0+!_F:9S8&Y)<BR3[+;C$PGMO.C5\&%[?;72P'!G(!JL+Z^8R]>7TXA&D(
  318. XML"Y")%KL<#0L?VAP/&FK4:D6%PQ72Y.3;@O1*BEXZ5X)=%P:(64.1S<<?MV&
  319. XM6C(M]>'Q2!9'7\C06A"'/&%Y7VD$$W\IF@1Q$PIB(K^&KKS@8R:IB;DOI#:'
  320. XMAF7R0I^NLUI9B'],QN:/D>:B>Z!TE*-6/T@L;>OC3SR)3;Q5\"IV<5B'+W\?
  321. XM'F1MV2A<=[[)1$I]7T@],\8N=M\?W4EVZMPP@"!^/]EBU^0QU--YT=ZBSH6$
  322. XMPP:+R;WGDA*;<%+.S"'TR=T(4(NB(``"(ZU?A829@@1HT;;1N@74E;JYU+ZJ
  323. XM7=U`/R/@UY]:">R;KXI/3I>\J<LYO@A/3:JI-XN7(3</2RV@+CDC.SKP0L5\
  324. XMIZ\V!"F;*?"O[EGY(P7IF'_/DT1#*-83_\N[T6`Z'YL_"0A.>JP=!:D:`J;M
  325. XME>>086!\GN$C!'[A`E<`V31'G4L]+UHQ+V)$)>VAH)\4V+O510#?EP>SB["O
  326. XMRBHXP;6IBG?U,'2++KP#NTKD*&/0I,/"822/4S_&U((=N/2J94&,REO#T7BD
  327. X!&"HX
  328. X`
  329. Xend
  330. END_OF_UU.test1
  331. if test 8715 -ne `wc -c <UU.test1`; then
  332.     echo shar: \"UU.test1\" unpacked with wrong size!
  333. fi
  334. # end of overwriting check
  335. fi
  336. if test -f autotri.c -a "${1}" != "-c" ; then 
  337.   echo shar: Will not over-write existing file \"autotri.c\"
  338. else
  339. echo shar: Extracting \"autotri.c\" \(7624 characters\)
  340. sed "s/^X//" >autotri.c <<'END_OF_autotri.c'
  341. X/*
  342. X * Automatic guessing based on trigrams.
  343. X *
  344. X * Bob Baldwin, January 1985.
  345. X */
  346. X
  347. X#include    <stdio.h>
  348. X#include    <math.h>
  349. X#include    "window.h"
  350. X#include    "terminal.h"
  351. X#include    "layout.h"
  352. X#include    "specs.h"
  353. X#include    "cipher.h"
  354. X#include    "autotri.h"
  355. X
  356. X
  357. X#define    DEBUGP    FALSE        /* Perm building */
  358. X#define    DEBUGB    FALSE        /* Best guess */
  359. X
  360. X#define    ATRLABEL1  \
  361. X"Auto Trigram, max SD: %4.2f total: %d wire: %d -- Please Wait"
  362. X#define    ATRLABEL2  \
  363. X"Auto Trigram, max SD: %4.2f total: %d wire: %d -- Done"
  364. X#define    ATRHELP         "F3 enters guess, ^G undoes it."
  365. X
  366. X
  367. Xextern    char    mcbuf[];
  368. Xextern    ecinfo    gecinfo;
  369. Xextern    atrdraw(), atrfirst(), atrenter(), atrundo();
  370. X
  371. X/* Gloabal State. */
  372. Xchar    *trigramstats;        /* Filename for statistics. */
  373. Xatrinfo    gatrinfo;
  374. Xkeyer    atrktab[] = {
  375. X        {CACCEPT, atrenter},
  376. X        {CUNDO, atrundo},
  377. X        {CGO_UP, jogup},
  378. X        {CGO_DOWN, jogdown},
  379. X        {CGO_LEFT, jogleft},
  380. X        {CGO_RIGHT, jogright},
  381. X        {0, NULL},
  382. X        };
  383. X
  384. X/* Routine invoked by user to put up the equivalence class
  385. X * guessing window.
  386. X * The window is drawn empty, and then filled in with the guess.
  387. X * Return NULL if command completes ok.
  388. X */
  389. Xchar    *atrguess(str)
  390. Xchar    *str;            /* Command line */
  391. X{
  392. X    gwindow    *atr;
  393. X    atrinfo    *atri;
  394. X    ecinfo    *ecbi;
  395. X    int        *dbsperm;
  396. X    int        i, c;
  397. X    int        classpos;
  398. X    int        x, y;
  399. X
  400. X    atr = &gbstore;
  401. X    atri = &gatrinfo;
  402. X    dbsperm = refperm(dbsgetblk(&dbstore));
  403. X    atr_init(mcbuf, dbsperm, atri);
  404. X    ecbi = atri->eci;
  405. X    atri->min_total_chars = 123;
  406. X    atri->min_wire_chars = 456;
  407. X
  408. X    if ((i = sscanf(str, "%*[^:]: %f %*[^:]: %d %*[^:]: %d",
  409. X        &atri->max_score, &atri->min_total_chars,
  410. X        &atri->min_wire_chars)) != 3)  {
  411. X            return("Could not parse all three arguments.");
  412. X        }
  413. X
  414. X    gbsswitch(atr, ((char *) atri), atrktab, atrfirst, wl_noop, atrdraw);
  415. X
  416. X    sprintf(statmsg, ATRLABEL1,
  417. X            atri->max_score, atri->min_total_chars, atri->min_wire_chars);
  418. X    gblset(&gblabel, statmsg);
  419. X    atrdraw(atr);
  420. X    fflush(stdout);
  421. X
  422. X    atr_autoguess(atri);
  423. X    decode(ecbi->ciphertext, ecbi->plaintext, ecbi->perm);
  424. X
  425. X    sprintf(statmsg, ATRLABEL2,
  426. X            atri->max_score, atri->min_total_chars, atri->min_wire_chars);
  427. X    gblset(&gblabel, statmsg);
  428. X    atrdraw(atr);
  429. X
  430. X    return(NULL);
  431. X}
  432. X
  433. X
  434. X/*  (re) Draw the window.
  435. X */
  436. Xatrdraw(atr)
  437. Xgwindow    *atr;
  438. X{
  439. X    int            i;
  440. X    int            row, col;
  441. X    atrinfo        *atri;
  442. X    ecinfo        *ecbi;
  443. X
  444. X    atri = ((atrinfo *) atr->wprivate);
  445. X    ecbi = atri->eci;
  446. X    row = 1;
  447. X    col = 1;
  448. X
  449. X    for (i = 0 ; i < BLOCKSIZE ; i++)  {
  450. X        if (i%LINELEN == 0) {
  451. X            wl_setcur(atr, gbspos2row(i), gbspos2col(i));
  452. X            }
  453. X        plnchars(1, char2sym(ecbi->plaintext[i]));
  454. X        }
  455. X
  456. X    for (i = gbspos2row(BLOCKSIZE) ; i <= GBHEIGHT ; i++) {
  457. X        wl_setcur(atr, i, 1);
  458. X        plnchars(LINELEN, ' ');
  459. X        }
  460. X
  461. X    for (i = 1 ; i <= GBHEIGHT ; i++) {
  462. X        wl_setcur(atr, i, LINELEN+1);
  463. X        plnchars(atr->wwidth - LINELEN, ' ');
  464. X        }
  465. X
  466. X    wl_setcur(atr, row, col);
  467. X}
  468. X
  469. X
  470. X/* First time cursor enters window.
  471. X */
  472. Xatrfirst(atr, row, col)
  473. Xgwindow    *atr;
  474. Xint            row, col;
  475. X{
  476. X    usrhelp(&user, ATRHELP);
  477. X    wl_setcur(atr, row, col);
  478. X}
  479. X
  480. X
  481. X/* Enter the guess into the decryption block.
  482. X */
  483. Xatrenter(atr)
  484. Xgwindow    *atr;
  485. X{
  486. X    atrinfo        *atri;
  487. X
  488. X    atri = ((atrinfo *) atr->wprivate);
  489. X    dbsmerge(&dbstore, atri->eci->perm);
  490. X    wl_rcursor(atr);
  491. X}
  492. X
  493. X
  494. X/* Undo the last guess.
  495. X */
  496. Xatrundo(atr)
  497. Xgwindow    *atr;
  498. X{
  499. X    dbsundo(&dbstore);
  500. X    wl_rcursor(atr);
  501. X}
  502. X
  503. X
  504. X/* Fill in auto-trigram info from given ciphertext block.
  505. X * The filter parameters are not set by this routine.
  506. X */
  507. Xatr_init(cipher, perm, atri)
  508. Xchar    cipher[];
  509. Xint        perm[];
  510. Xatrinfo    *atri;
  511. X{
  512. Xextern    int    *trig_loaded;
  513. X    int        i;
  514. X
  515. X    atri->eci = &gecinfo;
  516. X    if (!trig_loaded)
  517. X        load_tri_from(trigramstats);
  518. X    ec_init(cipher, perm, atri->eci);
  519. X    atr_guess_init(atri);
  520. X}
  521. X
  522. X
  523. X/* Per guess initialization.
  524. X */
  525. Xatr_guess_init(atri)
  526. Xatrinfo    *atri;
  527. X{
  528. X    atri->best_trigram = NULL;
  529. X    atri->best_score = 10.0;
  530. X    atri->gcount = 0;
  531. X    atri->total_score = 0;
  532. X    atri->best_pvec[0] = NONE;
  533. X    atri->best_permvec[0].x = NONE;
  534. X}
  535. X
  536. X
  537. X
  538. X/* Score a trigram at a given position.
  539. X * It also looks in atri for filtering parameters (total number
  540. X * of chars must not be less than min_total_chars, and the minimum number
  541. X * of chars deduced per wire must not be less than min_wire_chars).
  542. X * This routine fills in permvec and pvec.
  543. X * Returns -1.0 if guess is unacceptable.
  544. X */
  545. Xfloat    atr_score(atri, trigent, pos, permvec, pvec)
  546. Xatrinfo        *atri;
  547. Xtrig_ent    *trigent;
  548. Xint            pos;
  549. Xperment        permvec[];
  550. Xint            pvec[];
  551. X{
  552. X    int        length;
  553. X    int        i, x, y;
  554. X    int        ccount;
  555. X    int        added;
  556. X    extern    float    logvar;
  557. X    float    score;
  558. X    ecinfo    *eci;
  559. X    int        butfirst;
  560. X    int        butlast;
  561. X
  562. X    for (length = 0 ; trigent->trigram[length] != 0 ; length++);
  563. X    eci = atri->eci;
  564. X    added = permvec_from_string(atri->eci, trigent->trigram, pos, permvec);
  565. X    if (added < 0)  return(-1.0);
  566. X
  567. X    butfirst = pos;
  568. X    butlast = pos + length -1;
  569. X    ccount = 0;
  570. X
  571. X    for (i = 0 ; i < PERMSZ  &&  permvec[i].x != NONE ; i++)  {
  572. X        if (ccount >= BLOCKSIZE-1)  break;
  573. X        x = permvec[i].x;
  574. X        y = permvec[i].y;
  575. X/*        added = decode_wire_but(eci, x, y, &pvec[ccount], -1, -1);*/
  576. X        added = decode_wire_but(eci, x, y, &pvec[ccount], butfirst, butlast);
  577. X        if (added < 0)  {
  578. X            ccount = 0;
  579. X            break;
  580. X            }
  581. X        if (added < atri->min_wire_chars)  {
  582. X            ccount = 0;
  583. X            break;
  584. X            }
  585. X        ccount += added;
  586. X        }
  587. X    pvec[ccount] = -1;
  588. X
  589. X    if (ccount <= 0)  return(-1.0);
  590. X    if (ccount < atri->min_total_chars)  return(-1.0);
  591. X
  592. X    score = pvec_1score(pvec);
  593. X    if (score < 0.0)  return(-1.0);
  594. X/*
  595. X    score = exp(-(score * score) / 2.0);
  596. X    score = score / sqrt(2*PI*logvar/ccount);
  597. X    score = score * trigent->prob;
  598. X*/
  599. X    return(score);
  600. X}
  601. X
  602. X
  603. X/* Select the best trigram for a given position.
  604. X * Returns pointer to trigram string, or NULL.
  605. X * Fills in atri with additional information.
  606. X * Filtering parameters are in atri.
  607. X */
  608. Xchar    *atr_best(atri, pos)
  609. Xatrinfo    *atri;
  610. Xint        pos;
  611. X{
  612. X    int        tgram;
  613. X    float    score;
  614. X    perment    permvec[PERMSZ];
  615. X    int        pvec[BLOCKSIZE+1];
  616. X#if DEBUGB
  617. X    char    str[BLOCKSIZE+1];
  618. X#endif
  619. X
  620. X    atr_guess_init(atri);
  621. X
  622. X    for (tgram = 0 ; trig_tab[tgram].trigram != NULL ; tgram++)  {
  623. X        score = atr_score(atri, &trig_tab[tgram], pos, permvec, pvec);
  624. X        if (score < 0.0)  continue;
  625. X        atri->total_score += score;
  626. X        atri->gcount++;
  627. X        if (score < atri->best_score) {
  628. X            atri->best_score = score;
  629. X            atri->best_trigram = trig_tab[tgram].trigram;
  630. X            pvec_copy(pvec, atri->best_pvec);
  631. X            permvec_copy(permvec, atri->best_permvec, PERMSZ);
  632. X            }
  633. X        }
  634. X
  635. X#if DEBUGB
  636. X    if (atri->best_score < atri->max_score) {
  637. X        printf("\nTrigram '%s' at %d", atri->best_trigram, pos);
  638. X        pvec2str(str, atri->best_pvec);
  639. X        printf(" deduces '%s'", str);
  640. X        printf(" which scores as %g", atri->best_score);
  641. X        printf(".\n");
  642. X        }
  643. X#endif
  644. X
  645. X    if (atri->best_score < atri->max_score)
  646. X        {return(atri->best_trigram);}
  647. X    else
  648. X        {return(NULL);}
  649. X}
  650. X
  651. X
  652. X/* Merge the given permvector into the permutation table.
  653. X * Return ERROR if there is a conflict, otherwise TRUE.
  654. X */
  655. Xint    accept_permvec(atri, permvec)
  656. Xatrinfo    *atri;
  657. Xperment    permvec[];
  658. X{
  659. X    int        i, x, y;
  660. X    ecinfo    *ecbi;
  661. X
  662. X    ecbi = atri->eci;
  663. X    for (i = 0 ; i < PERMSZ  &&  permvec[i].x != NONE ; i++)  {
  664. X        x = MODMASK & permvec[i].x;
  665. X        y = MODMASK & permvec[i].y;
  666. X        if (perm_conflict(ecbi->perm, x, y)) {
  667. X#if DEBUGP
  668. X            printf("CONFLICT trying to wire %d to %d.\n", x, y);
  669. X#endif
  670. X            return(ERROR);
  671. X            }
  672. X        }
  673. X
  674. X
  675. X    /* Now know that there are no conflicts. */
  676. X    for (i = 0 ; i < PERMSZ  &&  permvec[i].x != NONE ; i++)  {
  677. X#if DEBUGP
  678. X        printf("ACCEPTING wiring of %d to %d.\n", x, y);
  679. X#endif
  680. X        x = MODMASK & permvec[i].x;
  681. X        y = MODMASK & permvec[i].y;
  682. X        ecbi->perm[x] = y;
  683. X        ecbi->perm[y] = x;
  684. X        }
  685. X
  686. X    return(TRUE);
  687. X}
  688. X
  689. X
  690. X
  691. X/* Perform automatic guessing given a set of
  692. X * filter parameters in an atrinfo structure.
  693. X */
  694. Xatr_autoguess(atri)
  695. Xatrinfo    *atri;
  696. X{
  697. X    int        pos;
  698. X    char    *trigram;
  699. X
  700. X    for (pos = 0 ; pos < BLOCKSIZE ; pos++) {
  701. X        trigram = atr_best(atri, pos);
  702. X        if (trigram != NULL) {
  703. X            accept_permvec(atri, atri->best_permvec);
  704. X            }
  705. X        }
  706. X}
  707. END_OF_autotri.c
  708. if test 7624 -ne `wc -c <autotri.c`; then
  709.     echo shar: \"autotri.c\" unpacked with wrong size!
  710. fi
  711. # end of overwriting check
  712. fi
  713. if test -f dline.c -a "${1}" != "-c" ; then 
  714.   echo shar: Will not over-write existing file \"dline.c\"
  715. else
  716. echo shar: Extracting \"dline.c\" \(6929 characters\)
  717. sed "s/^X//" >dline.c <<'END_OF_dline.c'
  718. X/*
  719. X * Library of display line routines.
  720. X *
  721. X * Robert W. Baldwin, December 1984.
  722. X */
  723. X
  724. X#include    <stdio.h>
  725. X#include    "window.h"
  726. X#include    "specs.h"
  727. X
  728. X
  729. X/* After clrdline is called the routines assume that there is
  730. X * a null character terminating the string at index w->wwidth.
  731. X * That is, the length of the display string is always equal
  732. X * the the (fixed) width of the line.
  733. X * The dl_length field behaves like the apparent string length.
  734. X * It is the column location of the last non-blank character.
  735. X * That is, an all blank line has a length of zero.
  736. X */
  737. X
  738. X/* INTERNAL PROCEDURES */
  739. X
  740. X/* Set the range of positions between firstcol and lastcol (inclusive) to
  741. X * the given string.  The string is padded on the right with spaces
  742. X * or truncated to make it fill the interval.
  743. X */
  744. Xsetarange(line, str, firstcol, lastcol)
  745. Xdispline    *line;
  746. Xchar        *str;
  747. Xint            firstcol, lastcol;
  748. X{
  749. X    int        i;
  750. X
  751. X    line->dl_length = 0;
  752. X    for (i = firstcol-1 ; i < lastcol ; i++)  {
  753. X        if (*str == 0)  break;
  754. X        if (*str != ' ')  line->dl_length = i+1;
  755. X        line->dl_chars[i] = *str++;
  756. X        }
  757. X
  758. X    for ( ; i < lastcol ; i++)  {
  759. X        line->dl_chars[i] = ' ';
  760. X        }
  761. X
  762. X    line->dl_chars[i] = '\000';
  763. X}
  764. X
  765. X
  766. X
  767. X/* PUBLIC PROCEDURES */
  768. X
  769. X
  770. X
  771. X/* Set the line from column, col, onward to the given string,
  772. X * padding with blanks if needed.  Note col = 1, set the whole line.
  773. X * This cannot be used to initialize a display line.  It does not
  774. X * set the character preceeding col.
  775. X */
  776. Xsetnadline(line, str, col)
  777. Xdispline    *line;
  778. Xchar        *str;
  779. Xint            col;
  780. X{
  781. X    setarange(line, str, col, line->wwidth);
  782. X}
  783. X
  784. X
  785. X/* Blank out all the characters in a displine.
  786. X */
  787. Xclrdline(line)
  788. Xdispline    *line;
  789. X{
  790. X    line->dl_length = 0;
  791. X    setarange(line, "", 1, line->wwidth);
  792. X}
  793. X
  794. X
  795. X/* Set the entire displine to the given string, padding with blanks.
  796. X * This fills in the null termination, so it can be used to initialize
  797. X * a display line.
  798. X */
  799. Xsetadline(line, str)
  800. Xdispline    *line;
  801. Xchar        *str;
  802. X{
  803. X    line->dl_length = 0;
  804. X    setarange(line, str, 1, line->wwidth);
  805. X}
  806. X
  807. X
  808. X/* Set characters in the given range to the string, truncating 
  809. X * if necessary.  Do not pad with blanks, just avoid overflowing
  810. X * the range.
  811. X */
  812. Xsetrange(line, str, firstcol, lastcol)
  813. Xdispline    *line;
  814. Xchar        *str;
  815. Xint            firstcol, lastcol;        /* Inclusive interval. */
  816. X{
  817. X    int        i;
  818. X    int        newlength;
  819. X
  820. X    newlength = 0;
  821. X    for (i = firstcol-1 ; i < lastcol ; i++)  {
  822. X        if (*str == 0)  return;
  823. X        if (*str != ' ')  newlength = i+1;
  824. X        line->dl_chars[i] = *str++;
  825. X        }
  826. X
  827. X    if (newlength > line->dl_length)  line->dl_length = newlength; 
  828. X}
  829. X
  830. X
  831. X
  832. X/* Starting at column, col, set the characters in the display line, line,
  833. X * to the given string, str.
  834. X * This differs from setnadline because it does not pad the line with blanks.
  835. X * Overflows are avoided by truncation.
  836. X * Note that col is a one-based position, not zero-based as strings are.
  837. X * This cannot be used to initialize a line, since it does not set the
  838. X * characters before column col.
  839. X */
  840. Xsetndline(line, str, col)
  841. Xdispline    *line;
  842. Xchar        *str;
  843. Xint            col;
  844. X{
  845. X    setrange(line, str, col, line->wwidth);
  846. X}
  847. X
  848. X
  849. X/* Set the variable part of the line (between min and max_col) to
  850. X * the given string.  Pad with blanks.
  851. X */
  852. Xdlsetvar(line, str)
  853. Xdispline    *line;
  854. Xchar        *str;
  855. X{
  856. X    setarange(line, str, line->dl_min_col, line->dl_max_col);
  857. X}
  858. X
  859. X
  860. X
  861. X/* Fill the given buffer from the given range of column positions.
  862. X * Trailing blanks are not removed.
  863. X */
  864. Xgetrange(line, buf, firstcol, lastcol)
  865. Xdispline    *line;
  866. Xchar        *buf;
  867. Xint            firstcol, lastcol;
  868. X{
  869. X    int        i;
  870. X
  871. X    for (i = firstcol-1 ; i < lastcol ; i++)  {
  872. X        *buf++ = line->dl_chars[i];
  873. X        }
  874. X    *buf = '\000';
  875. X}
  876. X
  877. X
  878. X/* Fill the given character buffer with a null terminated string
  879. X * corresponding to the part of the dline between the min and max
  880. X * column positions.  Trailing blanks are not removed.
  881. X */
  882. Xdlgetvar(line, buf)
  883. Xdispline    *line;
  884. Xchar        *buf;
  885. X{
  886. X    getrange(line, buf, line->dl_min_col, line->dl_max_col);
  887. X}
  888. X
  889. X
  890. X
  891. X/* EDITING PROCEDURES */
  892. X
  893. X
  894. X/* Insert the given character at the current cursor position.
  895. X * Do nothing if the line would become too long.
  896. X * Do nothing if the character is not printable.
  897. X * The cursor moves to the right one column, provided it doesn't
  898. X * move past dl_max_col.
  899. X */
  900. Xdlinsert(line, k)
  901. Xdispline    *line;
  902. Xkey            k;
  903. X{
  904. X    char    restbuf[MAXWIDTH+1];        /* Char from cursor to end. */
  905. X    char    insbuf[2];                    /* Char to insert. */
  906. X
  907. X    if (line->dl_length >= line->wwidth)  return;
  908. X    if (!printable(k))  return;
  909. X
  910. X    getrange(line, restbuf, line->wcur_col, line->wwidth);
  911. X
  912. X    insbuf[0] = k;
  913. X    insbuf[1] = '\000';
  914. X    setrange(line, insbuf, line->wcur_col, line->wcur_col);
  915. X
  916. X    setrange(line, restbuf, line->wcur_col+1, line->wwidth);
  917. X
  918. X    dlright(line);
  919. X}
  920. X
  921. X
  922. X/* Delete the character at the current cursor position and
  923. X * shuffle down the rest of the line.
  924. X * The cursor doesn't move.
  925. X * The non-blank length is correctly maintained.
  926. X */
  927. Xdldelete(line)
  928. Xdispline    *line;
  929. X{
  930. X    char    *p;
  931. X    char    linebuf[MAXWIDTH+1];        /* Rebuild whole line here. */
  932. X
  933. X    getrange(line, linebuf, 1, line->wcur_col-1);
  934. X
  935. X    for (p = linebuf ; *p != '\000' ; p++);    /* p pts to end of line. */
  936. X    getrange(line, p, line->wcur_col+1, line->wwidth);
  937. X    
  938. X    setadline(line, linebuf);
  939. X}
  940. X
  941. X
  942. X/* Move the cursor right within min and max column.
  943. X */
  944. Xdlright(line)
  945. Xdispline    *line;
  946. X{
  947. X    if (line->wcur_col+1 <= line->dl_max_col)
  948. X        line->wcur_col++;
  949. X}
  950. X
  951. X
  952. X/* Move the cursor left within min and max column.
  953. X */
  954. Xdlleft(line)
  955. Xdispline    *line;
  956. X{
  957. X    if (line->wcur_col-1 >= line->dl_min_col)
  958. X        line->wcur_col--;
  959. X}
  960. X
  961. X
  962. X
  963. X/* DISPLAY UPDATING PROCEDURES */
  964. X
  965. X
  966. X/* Redraw routine for a display line.
  967. X */
  968. Xwl_dldraw(dline)
  969. Xdispline    *dline;
  970. X{
  971. X    int        oldcolumn;
  972. X
  973. X    oldcolumn = dline->wcur_col;
  974. X
  975. X    wl_setcur(dline, 1, 1);
  976. X    plstring(dline->dl_chars);
  977. X    wl_setcur(dline, 1, oldcolumn);
  978. X}
  979. X
  980. X
  981. X/* Insert a character an redisplay the line.
  982. X */
  983. Xwl_dlinsert(line, k)
  984. Xdispline    *line;
  985. Xkey            k;
  986. X{
  987. X    dlinsert(line, k);
  988. X    wl_dldraw(line);
  989. X}
  990. X
  991. X
  992. X/* Delete the current character an redisplay the line.
  993. X */
  994. Xwl_dlfdel(line, k)
  995. Xdispline    *line;
  996. Xkey            k;
  997. X{
  998. X    dldelete(line, k);
  999. X    wl_dldraw(line);
  1000. X}
  1001. X
  1002. X
  1003. X/* Delete the previous character an redisplay the line.
  1004. X * The cursor moves backwards one position.
  1005. X */
  1006. Xwl_dlbdel(line, k)
  1007. Xdispline    *line;
  1008. Xkey            k;
  1009. X{
  1010. X    if (line->wcur_col == line->dl_min_col)  return;
  1011. X
  1012. X    dlleft(line);
  1013. X    dldelete(line, k);
  1014. X    wl_dldraw(line);
  1015. X}
  1016. X
  1017. X
  1018. X/* Move cursor right and update display.
  1019. X */
  1020. Xwl_dlright(line)
  1021. Xdispline    *line;
  1022. X{
  1023. X    dlright(line);
  1024. X    wl_rcursor(line);
  1025. X}
  1026. X
  1027. X
  1028. X/* Move cursor left and update display.
  1029. X */
  1030. Xwl_dlleft(line)
  1031. Xdispline    *line;
  1032. X{
  1033. X    dlleft(line);
  1034. X    wl_rcursor(line);
  1035. X}
  1036. X
  1037. X
  1038. X/* Clear the variable part of the display line and update the display.
  1039. X */
  1040. Xwl_dlclr(line)
  1041. Xdispline    *line;
  1042. X{
  1043. X    dlsetvar(line, "");
  1044. X    line->wcur_col = line->dl_min_col;
  1045. X    wl_dldraw(line);
  1046. X}
  1047. X
  1048. X
  1049. X/* Scan for the first argument place holder, '%',
  1050. X * position the cursor there, and delete it.
  1051. X * Do nothing if the line doesn't contain a '%'.
  1052. X */
  1053. Xwl_nxtarg(line)
  1054. Xdispline    *line;
  1055. X{
  1056. X    int        i;
  1057. X
  1058. X    for (i = line->dl_min_col-1 ; i < line->dl_max_col ; i++) {
  1059. X        if (line->dl_chars[i] != '%') continue;
  1060. X        wl_setcur(line, 1, i+1);
  1061. X        wl_dlfdel(line);
  1062. X        break;
  1063. X        }
  1064. X}
  1065. END_OF_dline.c
  1066. if test 6929 -ne `wc -c <dline.c`; then
  1067.     echo shar: \"dline.c\" unpacked with wrong size!
  1068. fi
  1069. # end of overwriting check
  1070. fi
  1071. if test -f specs.h -a "${1}" != "-c" ; then 
  1072.   echo shar: Will not over-write existing file \"specs.h\"
  1073. else
  1074. echo shar: Extracting \"specs.h\" \(6537 characters\)
  1075. sed "s/^X//" >specs.h <<'END_OF_specs.h'
  1076. X/*
  1077. X * Specifications of inter-module dependencies.
  1078. X *
  1079. X * Robert W. Baldwin, December 1984.
  1080. X */
  1081. X
  1082. X
  1083. X/* General Information. */
  1084. X
  1085. X/* A pvec is an 'string' of integers that represent plaintext
  1086. X *    characters.  The string is terminated by a -1.
  1087. X * A pbuf is a fixed length array of integers that represent plaintext
  1088. X *    characters.  A value of -1 means that the characters is unknown.
  1089. X * A cbuf is a fixed length array of bytes that represent ciphertext chars.
  1090. X * A perm is a mapping from shifted ciphertext characters to shifted
  1091. X *    plaintext characters.  Each character is shifted (incremented) by
  1092. X *    its offset in the block of 256 characters that contain it.
  1093. X * A gsi is a data structure about a guess that includes information
  1094. X *    on the characters that are assumed to be right.
  1095. X * An eci is a data structure that descibes a block of cipher and
  1096. X *    plain text.
  1097. X * A string is a null terminated vector of bytes.
  1098. X */
  1099. X
  1100. X
  1101. Xextern    twindow    banner;
  1102. Xextern    twindow    webster;
  1103. Xextern    twindow    dblabel;
  1104. Xextern    gwindow    dbstore;
  1105. Xextern    twindow    gblabel;
  1106. Xextern    gwindow    gbstore;
  1107. Xextern    twindow    user;
  1108. X
  1109. Xextern    gwindow    *ibanner();
  1110. Xextern    gwindow    *iwebster();
  1111. Xextern    gwindow    *idblabel();
  1112. Xextern    gwindow    *idbstore();
  1113. Xextern    gwindow    *igblabel();
  1114. Xextern    gwindow    *igbstore();
  1115. Xextern    gwindow    *iuser();
  1116. X
  1117. Xextern    char    *savestr();
  1118. Xextern    int    substrp(/* big, little */);
  1119. Xextern    int    read_slashed(/* *string */);
  1120. X
  1121. Xextern    char *(quitcmd(/* arg-string */));
  1122. Xextern    char *(lpbguess(/* arg-string */));
  1123. Xextern    char *(atrguess(/* arg-string */));
  1124. Xextern    char *(kntguess(/* arg-string */));
  1125. Xextern    char *(ecbguess(/* arg-string */));
  1126. Xextern    char *(pwdguess(/* arg-string */));
  1127. Xextern    char *(permsave(/* arg-string */));
  1128. Xextern    char *(permload(/* arg-string */));
  1129. Xextern    char *(webmatch(/* arg-string */));
  1130. Xextern    char *(clearzee(/* arg-string */));
  1131. Xextern    char *(pgate(/* arg-string */));
  1132. X
  1133. Xextern    char *(cmddo(/* cmdtab, string */));
  1134. Xextern    char *(cmdcomplete(/* cmdtab, string */));
  1135. Xextern    gblset(/* w, string */);
  1136. Xextern    gbsswitch(/* w, private, keytable, firsttime, lasttime, draw */);
  1137. Xextern    gbsclear(/* w */);
  1138. Xextern    hstadd(/* w, string */);
  1139. Xextern    usrstatus(/* w, string */);
  1140. Xextern    usrhelp(/* w, string */);
  1141. Xextern    dblbnum(/* w, int */);
  1142. Xextern    int    dbsmerge(/* w, perm */);
  1143. Xextern    dbssetblk(/* w, int */);
  1144. Xextern    int    dbsgetblk(/* w */);
  1145. Xextern    dbstrypq(/* ecbi, pque_hdr, pos */);
  1146. X
  1147. Xextern    float    score(/* pbuf */);
  1148. Xextern    float    gsi_1score(/* gsi */);        /* Uses 1st order stats. */
  1149. Xextern    float    gsi_2score(/* gsi */);        /* Uses 2nd order stats. */
  1150. Xextern    float    var_1score(/* pvec */);        /* Uses first order stats. */
  1151. Xextern    float    prob_1score(/* pvec */);    /* Uses first order stats. */
  1152. Xextern    float    pvec_1score(/* pvec */);    /* Uses first order stats. */
  1153. Xextern        load_1stats();            /* Loads first order stats. */
  1154. Xextern        print_1stats();
  1155. X
  1156. Xextern    int    decode(/* cbuf, pbuf, perm */); /* FALSE if has bad chars. */
  1157. X/* Return -1 if    bad chars, otherwise # of chars added to pvec. */
  1158. Xextern    int    decode_wire(/* eci, x, y, pvec */);
  1159. X/* Returns -1 if bad chars, otherwise # of chars added to pvec. */
  1160. Xextern    int    decode_class(/* eci, firstpos, firstplain, pvec */);
  1161. X/* Returns number of wires added to permvec assuming that plaintext
  1162. X * str occurs at pos.  Fills in permvec.  Returns -1 if conflict. */
  1163. Xextern    int    perm_from_string(/* eci, str, pos, permvec */);
  1164. X/* Fills in pvec with the plaintext characters deduced
  1165. X * from the wires in permvec that are not in the positions
  1166. X * ranging from butfirst to butlast.  Returns -1 if any
  1167. X * non-ascii chars are deduced, else count of chars. */
  1168. Xextern    int    permvec2pvec(/* eci, permvec, pvec, butfirst, butlast */);
  1169. Xextern        permvec_copy(/* from, to, maxnum */);
  1170. Xextern        pvec_copy(/* from, to, maxnum */);
  1171. Xextern        print_pvec(/* stream, pvec */);
  1172. Xextern        char2buf(/* cbuf, pbuf, length */);    /* Fills in pbuf. */
  1173. Xextern        buf2char(/* cbuf, pbuf, length, nonechar */); /* Fill cbuf. */
  1174. Xextern        str2pvec(/* string, pvec */);        /* Fills in pvec. */
  1175. Xextern        pvec2str(/* string, pvec */);        /* Fills in string. */
  1176. X
  1177. Xextern    int    fillcbuf(/* blocknum, *cbuf */);   /* Ret TRUE if sucessful. */
  1178. Xextern    int    *refperm(/* blocknum */);       /* Ret NULL if fails. */
  1179. Xextern    copyperm(/* src, dst */);
  1180. Xextern    readperm(/* fd, permbuffer */);    /* Gets chars from fd to fill perm. */
  1181. Xextern    writeperm(/* fd, permbuffer */);       /* Writes perm to file. */
  1182. Xextern    multperm(/* left, right, result = (left)(right) */);
  1183. Xextern    expperm(/* src, dst, k */);           /* dst = src ** k. */
  1184. Xextern    int    permcount(/* perm */);           /* Return # values != -1. */
  1185. Xextern    int    permwcount(/* perm */);           /* Return # of wires. */
  1186. X
  1187. Xextern        approx_init();        /* Call before fexp or isqrt. */
  1188. Xextern    float    fexp(/* float */);    /* Fast exp func. */
  1189. Xextern    float    isqrt[];        /* Sqrts of integers < BLOCKSIZE */
  1190. X
  1191. X
  1192. X/* Globals State */
  1193. Xextern    char    *cipherfile;        /* Ciphertext file name. */
  1194. Xextern    char    *permfile;        /* Permutation save file name. */
  1195. Xextern    char    *letterstats;        /* Single letter stat file name. */
  1196. Xextern    char    *bigramstats;        /* Letter pair statistics file name. */
  1197. Xextern    char    *trigramstats;        /* Trigram statistics file name. */
  1198. Xextern    int    permchgflg;            /* TRUE if perms chged since save. */
  1199. Xextern    char    statmsg[];        /* Buffer to build status messages. */
  1200. X
  1201. X
  1202. X/* Extensions to C */
  1203. X#ifndef reg
  1204. X#define    reg        register
  1205. X#endif
  1206. X#define    abs(x)    (((x) > 0) ? x : (0 - x))
  1207. X
  1208. X
  1209. X/* Macros */
  1210. X#define graphic(c)    (c & SYMBOL)
  1211. X#define notascii(c)    (c>127)
  1212. X#define printable(c)    ((32 <= c) && (c <= 126))
  1213. X#define lletter(c)    (('a'<= (c)) && ((c) <= 'z'))
  1214. X#define uletter(c)    (('A'<= (c)) && ((c) <= 'Z'))
  1215. X#define isspace(c)    ( ((c) == ' ') || ((c) == '\t') || ((c) == '\n') )
  1216. X#define isletter(c)    (lletter(c) || uletter(c))
  1217. X#define tolower(c)    ( uletter(c) ? ((c) - 'A' + 'a') : (c) )
  1218. X
  1219. X
  1220. X/* Constants */
  1221. X#define    BLOCKSIZE    256    /* Number of chars in a cipher block. */
  1222. X#define MODMASK        0377    /* Arithmetic mod 256. */
  1223. X#define    CHARMASK    0177    /* ASCII char mask. */
  1224. X#define    MAXCHAR        127    /* Highest ASCII value. */
  1225. X#define MXBIINDEX    40    /* Num different chars in a bigram. */
  1226. X#define LINELEN        64    /* Number of characters per line. */
  1227. X#define    NLINES        4    /* Number of line pairs. */
  1228. X#define    NONE        (-1)    /* No info on something. */
  1229. X#define    ERROR        (-1)    /* Procedure can't meet normal case specs. */
  1230. X#define    EOL        (-37)    /* A hack used by read_char() */
  1231. X#define    PI        (3.1415926)
  1232. X#define    NPERMS        15    /* Max number of blocks in a file. */
  1233. X
  1234. X#ifndef    TRUE
  1235. X#define    TRUE        1    /* The whole truth. */
  1236. X#endif
  1237. X#ifndef    FALSE
  1238. X#define    FALSE        0    /* Lies, falsehoods, etc. */
  1239. X#endif
  1240. X#ifndef NULL
  1241. X#define    NULL        0    /* A zero by any other name ... */
  1242. X#endif
  1243. END_OF_specs.h
  1244. if test 6537 -ne `wc -c <specs.h`; then
  1245.     echo shar: \"specs.h\" unpacked with wrong size!
  1246. fi
  1247. # end of overwriting check
  1248. fi
  1249. if test -f test.txt -a "${1}" != "-c" ; then 
  1250.   echo shar: Will not over-write existing file \"test.txt\"
  1251. else
  1252. echo shar: Extracting \"test.txt\" \(6305 characters\)
  1253. sed "s/^X//" >test.txt <<'END_OF_test.txt'
  1254. XThe data may be passed to the procedure through value
  1255. Xparameters, and return values obtained through reference parameters.
  1256. XThe caller is suspended pending the return of the callee.  However,
  1257. Xinvocations differ from local procedure calls in several important
  1258. Xways.  The first, which is particular to Eden, is the requirement of
  1259. Xan accompanying capability to name to the target Eject.  Therefore,
  1260. Xthe Eject programmer is quite aware of the fact that an invocation is
  1261. Xnot "just another procedure call".  A second difference is
  1262. Xperformance.  Invocations will be far slower than a local procedure
  1263. Xcall simply because there is more going on.  The Eden kernel must
  1264. Xlocal the target Eject; network traffic may be necessary if the target
  1265. XEject is not on the same machine; parameters must be packaged into a
  1266. Xmessage to be sent to the target Eject; the target Eject must
  1267. Xunpackage the message and call the desired procedure with the
  1268. Xparameter values; the target Eject must package the results into a
  1269. Xmessage to be sent to the invoking Eject; finally, the invoking Eject
  1270. Xmust unpackage the results and return them to the calling procedure.
  1271. XIn light of such a performance deficit, Eject programmers may be
  1272. Xreluctant to structure a particular collection of Ejects in novel ways
  1273. Xin order to avoid the invocation overhead.
  1274. X
  1275. XThe thesis of this paper is to demonstrate that acceptable performance
  1276. Xfor invocations can be obtained in the Eden environment by paying
  1277. Xclose attention to the design and implementation of modules that
  1278. Xsupport remote procedure calls.  For the purposes of this thesis, the
  1279. Xscope will be limited to the Ejects' point of view.  The Eden kernel
  1280. Xwill not be considered.
  1281. X
  1282. X\section{Some Background}\label{introbck}
  1283. X
  1284. XEden has had a long history of improvements to its invocation
  1285. Xmechanism.  Previous work has concentrated on removing extraneous {\it
  1286. Xinter-process communication} (IPC) messages.  Particularly in Eden's
  1287. Xcase, IPC messages are very expensive.  Eden is built on top of Unix;
  1288. Xtherefore, each IPC message from an Eject to the Eden kernel, and vice
  1289. Xversa, involves at least a Unix process switch and copying the IPC
  1290. Xmessage into and out of the Unix kernel.
  1291. X
  1292. XThe first versions of Eden required 14 IPC messages to be sent per
  1293. Xlocal invocation.  A local invocation occurs when the invoking Eject
  1294. Xand the target Eject reside on the same physical machine.
  1295. XWhat was 2-process kernel's role in this setup?
  1296. X
  1297. XThe 2-process Eden kernel was finally replaced by a 1-process Eden
  1298. Xkernel, immediately reducing the number of messages required for an
  1299. Xinvocation by eliminating the IPC messages between the two kernel
  1300. Xprocesses.
  1301. X
  1302. XThe final reduction in IPC messages sent per invocation occurred
  1303. Xduring the summer of 1984.  Two more IPC messages were eliminated.
  1304. XOne of the messages eliminated was the IPC message from the Eden
  1305. Xkernel to the invoking Eject that communicated the {\it invocation
  1306. Xhandle} assigned to that particular call.  It was replaced by a scheme
  1307. Xwhere the invoking Eject was allowed to generate its own {\it local
  1308. Xinvocation handle} to communicate with the Eden kernel, and the Eden
  1309. Xkernel would generate its own unique handle in order to communicate
  1310. Xwith another Eden kernel or the target Eject.  The Eden kernel
  1311. Xguarantees that the reply message to an invocation will be stamped
  1312. Xwith the invoking Eject-generated handle.  The other IPC message
  1313. Xeliminated was the status message from the Eden kernel to the target
  1314. XEject confirming the kernel's approval of the reply message (format,
  1315. Xor contents if capabilities were contained in the reply).  The more
  1316. Xlogical scheme of notifying the invoking Eject of the failure status
  1317. Xof the reply, or the actual reply if the status was success, is now
  1318. Xbeing used.  The result of all these improvements is shown in figure
  1319. X\ref{oldfig}.  (See section \ref{oldexp} for an explanation of figure
  1320. X\ref{oldfig}.)
  1321. X
  1322. X\section{Related Work}\label{introrel}
  1323. X
  1324. XNelson's thesis thoroughly examines remote procedure calls.  He
  1325. Xstudies a number of implementations, and proposes a design for
  1326. XEmmisary(?), a new RPC mechanism with excellent transparency and
  1327. Xexceptional performance.  To attain exceptional performance, Nelson
  1328. Xgives a list of "lessons" that an RPC mechanism must have.  The
  1329. Xlessons are summarized here for the reader:
  1330. X
  1331. X\begin{itemize}
  1332. X\end{itemize}
  1333. X
  1334. XIn designing an RPC mechanism, it is convenient to use a layer model.
  1335. XHowever, strict adherance to the layer model often results in poor
  1336. Ximplementations.  There is a prohibitive cost associated with highly
  1337. Xmodular implementations that cannot be tolerated in RPC
  1338. Ximplementations.  In proposing a solution to the asynchrony
  1339. Xproblem, Cooper\cite{soft} advocates "soft layering".  The idea of soft
  1340. Xlayering may be applied to any naturally layered system whose layers
  1341. Xmust work well together.
  1342. X
  1343. X\section{Structure of Thesis}\label{introstruct}
  1344. X
  1345. XChapter \ref{old} examines the deficiencies of the current Eden
  1346. Xinvocation mechanism.  The reader is taken on a tour through the
  1347. Xprocess of initiating an invocation and receiving its reply, and
  1348. Xreceiving a new invocation and replying to the invocation.
  1349. X
  1350. XChapter \ref{new} proposes restructuring the dispatcher module for
  1351. Xsynchronous invocations (by far the most heavily used form of
  1352. Xcommunication within Eden) and breaking down the "hard layering" that
  1353. Xcurrently exists between the various layers that support invocations,
  1354. Xfrom the Eject's point of view, in order to obtain significant
  1355. Xperformance gains.
  1356. X
  1357. X\chapter{A Closer Look at the Eden Invocation Mechanism}\label{old}
  1358. X
  1359. X\section{The Dispatcher -- Interface and Internals}\label{olddis}
  1360. X
  1361. X\section{Flow of Data -- CIP, Stub, and ESCII}\label{olddat}
  1362. X
  1363. X\section{Summary}\label{oldsum}
  1364. X
  1365. X\chapter{An Alternative Synchronous Invocation Mechanism}\label{new}
  1366. X
  1367. X\section{Assumptions and Limitations}\label{newass}
  1368. X
  1369. X\section{The Dispatcher -- Interface and Internals}\label{newdis}
  1370. X
  1371. X\section{A Word About Buffer Management}\label{newbuf}
  1372. X
  1373. X\section{Flow of Data -- CIP, Stub, and ESCII}\label{newdat}
  1374. X
  1375. X\section{Results and Timings}\label{newres}
  1376. X
  1377. X\section{Summary}\label{newsum}
  1378. X
  1379. X\chapter{Conclusions and Further Work}\label{concl}
  1380. X
  1381. X\section{Lessons Re-learned}\label{conles}
  1382. X
  1383. X\section{Soft Layering}\label{conlay}
  1384. X
  1385. X\section{Modularization and Interfaces}\label{conmod}
  1386. X
  1387. X\section{Further Work}\label{confur}
  1388. X
  1389. X\end{document}
  1390. X
  1391. END_OF_test.txt
  1392. if test 6305 -ne `wc -c <test.txt`; then
  1393.     echo shar: \"test.txt\" unpacked with wrong size!
  1394. fi
  1395. # end of overwriting check
  1396. fi
  1397. if test -f user.c -a "${1}" != "-c" ; then 
  1398.   echo shar: Will not over-write existing file \"user.c\"
  1399. else
  1400. echo shar: Extracting \"user.c\" \(7027 characters\)
  1401. sed "s/^X//" >user.c <<'END_OF_user.c'
  1402. X/*
  1403. X * User status and command window.
  1404. X *
  1405. X * Robert W. Baldwin, December 1984.
  1406. X *
  1407. X * Bob Baldwin 10/86.
  1408. X *  Formatting changes.
  1409. X *  Change usrdown to fix screen fall off bug.
  1410. X *  Change usrfirst to fix cursor pos so jumpcmd() works.
  1411. X */
  1412. X
  1413. X
  1414. X#include    <stdio.h>
  1415. X#include    "window.h"
  1416. X#include    "terminal.h"
  1417. X#include    "layout.h"
  1418. X#include    "specs.h"
  1419. X#include    "parser.h"
  1420. X
  1421. X
  1422. X#define    DONEMSG     "Command completed."
  1423. X#define    USRHLP    1        /* Offset for help line. */
  1424. X#define    USRSTAT    2        /* Offset for status line. */
  1425. X#define    USRCMD    3        /* Offset for command line. */
  1426. X
  1427. X
  1428. X/* Global space to build status messages. */
  1429. Xchar    statmsg[MAXWIDTH+1];
  1430. X
  1431. X
  1432. Xextern    int    usrfirst();    /* Defined below. */
  1433. Xextern    int    usrdokey();    /* Defined below. */
  1434. Xextern    int    usrdraw();    /* Defined below. */
  1435. Xextern    int    usrup();    /* Defined below. */
  1436. Xextern    int    usrdown();    /* Defined below. */
  1437. X
  1438. X
  1439. X/* Command table. */
  1440. X#define USRHTEXT \
  1441. X"bigram, knit, prop, load, save, lookup, clear, equiv, auto-tri, pword"
  1442. X
  1443. Xcmdent    usrcmdtab[] = {
  1444. X        {"quit-program permanently", quitcmd},
  1445. X{"auto-trigram max_dev: % min_total_chars: % min_wire_chars: %", atrguess},
  1446. X        {"knitting using blocks from: % to: %  Min show count: %", kntguess},
  1447. X        {"lookup-pattern: % in dictionary", webmatch},
  1448. X        {"equivalence-class guess, use accept level: % (try 2.0)", ecbguess},
  1449. X        {"pwords-from file: %  Max dev: % (try 1.0)", pwdguess},
  1450. X        {"load-permutations", permload},
  1451. X        {"save-permutations", permsave},
  1452. X        {"clear-zee permutation", clearzee},
  1453. X        {"propagate-info from: % to: % using Zee", pgate},
  1454. X        {"bigram-guess level: % (2.0), min_prob: % (0.15)", lpbguess},
  1455. X        {0, NULL},
  1456. X        };
  1457. X
  1458. X
  1459. X/* Keystroke table for the user area. */
  1460. Xextern    usrdocmd();
  1461. X
  1462. X/* Keystroke table for the whole user window.
  1463. X * The editing on the command line is handled by a sub-window.
  1464. X */
  1465. Xkeyer    usrktab[] = {
  1466. X        {CGO_UP, usrup},    /* Keep off help and status lines. */
  1467. X        {CGO_DOWN, usrdown},    /* Normal behavior ok. */
  1468. X        {CEXECUTE, usrdocmd},    /* Interprete a command. */
  1469. X        {0, NULL},        /* Handle other chars elsewhere. */
  1470. X        };
  1471. X
  1472. X/* Keystroke table for the command line sub-window.
  1473. X */
  1474. Xkeyer    cmdktab[] = {
  1475. X                {CNEXTARG, wl_nxtarg},
  1476. X        {CGO_LEFT, wl_dlleft},    /* Stay withing variable area. */
  1477. X        {CGO_RIGHT, wl_dlright},/* Stay withing variable area. */
  1478. X        {CDELF, wl_dlfdel},    /* Delete forward within var area. */
  1479. X        {CDELB, wl_dlbdel},    /* Delete backward within var area. */
  1480. X        {CCLRLINE, wl_dlclr},    /* Clear variable area. */
  1481. X        {CINSERT, wl_dlinsert},    /* All other chars self-insert. */
  1482. X        };
  1483. X
  1484. X
  1485. X/* Window for the user commands and program status. */
  1486. X
  1487. Xdispline usraline[USRHEIGHT];        /* Display lines for the user. */
  1488. Xdispline *usrlines[USRHEIGHT+1];    /* Pointers to them plus NULL. */
  1489. X
  1490. Xtwindow    user = {
  1491. X        USRROW,1,        /* Origin. */
  1492. X        USRHEIGHT, USRWIDTH,    /* Height and width. */
  1493. X        USRCMD+1, USRSCOL,    /* Initial (relative) cursor pos. */
  1494. X        NULL,            /* No private data. */
  1495. X        usrfirst,        /* Firstime = restore cursor pos. */
  1496. X        wl_noop,        /* Lasttime = do nothing. */
  1497. X        usrdraw,        /* Default draw routine. */
  1498. X        usrdokey,        /* Custom keystroke handler. */
  1499. X        usrktab,        /* Keystroke table. */
  1500. X        usrlines,
  1501. X};
  1502. X
  1503. X
  1504. X
  1505. X/* Display a string in the status area.
  1506. X * If the string is empty, this will clear the status area.
  1507. X * Put the cursor back where it was.
  1508. X *
  1509. X * The empty string is special case.  If the status line is
  1510. X * empty, then wcur_col = 1.  A second request to clear
  1511. X * the line is ignored.
  1512. X * If the line is not empty, wcur_col = dl_min_col.
  1513. X */
  1514. Xusrstatus(w, str)
  1515. Xtwindow    *w;
  1516. Xchar    *str;
  1517. X{
  1518. X    displine *line;
  1519. X    int     row, col;
  1520. X    
  1521. X    row = rowcursor();
  1522. X    col = colcursor();
  1523. X
  1524. X    line = w->dlines[USRSTAT];
  1525. X    if (*str == 0  &&  line->wcur_col == 1)
  1526. X          return;
  1527. X
  1528. X    dlsetvar(line, str);
  1529. X    (*(line->wredraw))(line);
  1530. X    setcursor(row, col);
  1531. X
  1532. X    line->wcur_col = (*str == 0) ? 1 : 2;
  1533. X}
  1534. X
  1535. X
  1536. X
  1537. X/* Display a string in the help area.
  1538. X * If the string is empty, this will clear the help area.
  1539. X * Put the cursor back where it was.
  1540. X */
  1541. Xusrhelp(w, str)
  1542. Xtwindow    *w;
  1543. Xchar    *str;
  1544. X{
  1545. X    displine *line;
  1546. X    int     row, col;
  1547. X    
  1548. X    row = rowcursor();
  1549. X    col = colcursor();
  1550. X
  1551. X    line = w->dlines[USRHLP];
  1552. X    dlsetvar(line, str);
  1553. X    (*(line->wredraw))(line);
  1554. X
  1555. X    setcursor(row, col);
  1556. X}
  1557. X
  1558. X
  1559. X
  1560. X/* Draw the user area.
  1561. X * Leaves the cursor on the command line.
  1562. X */
  1563. Xusrdraw(w)
  1564. Xtwindow    *w;
  1565. X{
  1566. X    wl_twdraw(w);
  1567. X}
  1568. X
  1569. X
  1570. X
  1571. X/* Make a window with a title and partial outline.
  1572. X */
  1573. Xgwindow *(iuser())
  1574. X{
  1575. X    int     i;
  1576. X    displine *line, *lines;
  1577. X    twindow     *w;
  1578. X
  1579. X    w = &user;
  1580. X    lines = usraline;
  1581. X    for (i = 0 ; i < w->wheight ; i++)  {
  1582. X        line = &lines[i];
  1583. X        line->worg_row = w->worg_row + i;
  1584. X        line->worg_col = w->worg_col;
  1585. X        line->wheight = 1;
  1586. X/* Fix bug on terminals that autowrap. */
  1587. X        line->wwidth = (i == USRCMD) ? w->wwidth - 1 : w->wwidth;
  1588. X        line->wcur_row = 1;
  1589. X        line->wcur_col = USRSCOL;
  1590. X        line->wfirst = wl_rcursor;
  1591. X        line->wlast = wl_noop;
  1592. X        line->wredraw = wl_dldraw;
  1593. X        line->wkey = dokey;
  1594. X        line->wkeyprocs = arwktab;
  1595. X        line->dl_min_col = USRSCOL;
  1596. X        line->dl_max_col = line->wwidth;
  1597. X        clrdline(line);
  1598. X        w->dlines[i] = line;
  1599. X        }
  1600. X    w->dlines[i] = NULL;
  1601. X
  1602. X    line = &lines[USRHLP];
  1603. X    setadline(line, "Help   : This feature not implemented");
  1604. X    line = &lines[USRSTAT];
  1605. X    setadline(line, "Status : ");
  1606. X    dlsetvar(line, "Just barely working");
  1607. X    line = &lines[USRCMD];
  1608. X    setadline(line, "Command: ");
  1609. X    line->wkeyprocs = cmdktab;
  1610. X
  1611. X    return((gwindow *) w);
  1612. X}
  1613. X
  1614. X
  1615. X/* Behavior of the up arrow key.
  1616. X * Move up to the window above us staying in the same column.
  1617. X */
  1618. Xusrup(w, k)
  1619. Xtwindow    *w;        /* The user window. */
  1620. Xkey    k;
  1621. X{
  1622. X    wl_setcur(w, 1, w->dlines[USRCMD]->wcur_col);
  1623. X    jogup(w, k);
  1624. X}
  1625. X
  1626. X
  1627. X/* Behavior of the down arrow key.
  1628. X * Move to command line.
  1629. X */
  1630. Xusrdown(w, k)
  1631. Xtwindow    *w;        /* The user window. */
  1632. Xkey    k;
  1633. X{
  1634. X    wl_setcur(w, USRHEIGHT, w->dlines[USRCMD]->wcur_col);
  1635. X}
  1636. X
  1637. X
  1638. X/* Behavior when cursor first enters the user window.
  1639. X * Move to the command line.
  1640. X */
  1641. Xusrfirst(w, row, col)
  1642. Xtwindow    *w;
  1643. Xint    row, col;    /* Place in window when cursor currently is. */
  1644. X{
  1645. X    displine *cmdline;
  1646. X
  1647. X    wl_setcur(w, USRHEIGHT, w->dlines[USRCMD]->wcur_col);
  1648. X    usrhelp(w, USRHTEXT);
  1649. X    cmdline = w->dlines[USRCMD];
  1650. X    (*(cmdline->wfirst))(cmdline, 1, col);
  1651. X}
  1652. X
  1653. X
  1654. X/* Keystroke handler for user window.
  1655. X * If it is not an up-arrow or down-arrow, pass it to the command line.
  1656. X */
  1657. Xusrdokey(w, k)
  1658. Xtwindow    *w;        /* The user window. */
  1659. Xkey    k;
  1660. X{
  1661. X    char     *expanded;    /* Expanded command line. */
  1662. X    char     cmdbuf[MAXWIDTH+1];
  1663. X    displine *cmdline;
  1664. X
  1665. X    cmdline = w->dlines[USRCMD];
  1666. X    usrstatus(&user, "");
  1667. X    if (ddokey(w, k, w->wkeyprocs))  {  /* If handled by top window. */
  1668. X        return;                /* Includes doit key. */
  1669. X    }
  1670. X
  1671. X    if (k == ((CINSERT << CMDSHIFT) | SPACE))  {
  1672. X        dlgetvar(cmdline, cmdbuf);
  1673. X        expanded = cmdcomplete(usrcmdtab, cmdbuf);
  1674. X        if (expanded != NULL)  {
  1675. X            dlsetvar(cmdline, expanded);
  1676. X            wl_dldraw(cmdline);
  1677. X            return;
  1678. X            }
  1679. X        }
  1680. X    (*(cmdline->wkey))(cmdline, k);    /* Else pass to sub-window. */
  1681. X}
  1682. X
  1683. X
  1684. X/* Interprete a command.
  1685. X */
  1686. Xusrdocmd(usr)
  1687. Xtwindow    *usr;
  1688. X{
  1689. X    char     cmdbuf[MAXWIDTH+1];
  1690. X    char     *errmsg;
  1691. X    displine *cmdline;
  1692. X
  1693. X    cmdline = usr->dlines[USRCMD];
  1694. X    wl_setcur(usr, usr->wcur_row, cmdline->wcur_col);
  1695. X    dlgetvar(cmdline, cmdbuf);
  1696. X    if ((errmsg = cmddo(usrcmdtab, cmdbuf)) == NULL)
  1697. X        errmsg = DONEMSG;
  1698. X    usrstatus(&user, errmsg);
  1699. X}
  1700. END_OF_user.c
  1701. if test 7027 -ne `wc -c <user.c`; then
  1702.     echo shar: \"user.c\" unpacked with wrong size!
  1703. fi
  1704. # end of overwriting check
  1705. fi
  1706. echo shar: End of archive 4 \(of 11\).
  1707. cp /dev/null ark4isdone
  1708. MISSING=""
  1709. for I in 1 2 3 4 5 6 7 8 9 10 11 ; do
  1710.     if test ! -f ark${I}isdone ; then
  1711.     MISSING="${MISSING} ${I}"
  1712.     fi
  1713. done
  1714. if test "${MISSING}" = "" ; then
  1715.     echo You have unpacked all 11 archives.
  1716.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  1717. else
  1718.     echo You still need to unpack the following archives:
  1719.     echo "        " ${MISSING}
  1720. fi
  1721. ##  End of shell archive.
  1722. exit 0
  1723. -- 
  1724. Rich $alz            rsalz@pineapple.bbn.com
  1725. Cronus Project, BBN Labs    "Anger is an energy"
  1726.